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Prefazione 


Troverete  in  questo  libro  più  di  cento  programmi  (essenzialmente  giochi), 
redatti  in  Basic  Atari  per  i  computer  ATARI.  La  maggior  parte  di  questi 
programmi  saranno  d’altronde  utilizzabili  senza  grosse  modifiche  sugli  al¬ 
tri  calcolatori  che  utilizzano  un  Basic  come  linguaggio  di  programma¬ 
zione. 

I  programmi  proposti  sono  molto  corti  e  l’ordine  nel  quale  sono  presentati 
non  è  certamente  arbitrario:  si  tratta  di  iniziare  il  lettore,  tramite  la  realiz¬ 
zazione  e  l’utilizzazione  dei  programmi  di  giochi  di  buona  qualità,  alla  co¬ 
noscenza  e  alla  padronanza  progressiva  di  questo  strumento  straordinario 
che  è  un  personal  computer. 

La  brevità  dei  programmi  proposti  permetterà  di  batterli  facilmente,  sen¬ 
za  il  rischio  di  commettere  degli  errori.  Potrete  naturalmente  utilizzarli 
come  base  per  la  realizzazione  di  programmi  più  impegnativi. 

I  programmi  sono  abbondantemente  commentati  per  aiutarvi  a  capire  il 
loro  funzionamento  e  le  pagine  di  presentazione  vi  permetteranno  di  ritro¬ 
vare  rapidamente  le  caratteristiche  proprie  delle  istruzioni  Basic  che  uti¬ 
lizzano. 

I  programmi  non  utilizzano  tutte  le  possibilità  di  un  apparecchio  come  l’A- 
tari. 

II  livello  5  dà  un’idea  sull’utilizzazione  di  alcune  tecniche  abbastanza  par¬ 
ticolari  che  potranno  essere  riprese  con  profitto  per  migliorare  i  program¬ 
mi  precedenti. 

Troverete,  alla  fine  di  ogni  presentazione,  qualche  suggerimento  per  possi¬ 
bili  migliorie,  o  per  modifiche  che  potrebbero  rendere  il  gioco  proposto 
più  attraente,  più  dinamico  o  più  completo. 


Organizzazione  dell’opera 


I  giochi  sono  classificati  in  ordine  crescente  di  difficoltà  seguendo  5  livelli: 

•  Il  livello  1  permette  lo  studio  delle  istruzioni  elementari  del  linguaggio 
Basic:  LET  (opzionale)  PRINT,  INPUT,  IF.  .  THEN,  FOR. . .  NEXT,  GOTO, 
GOSUB,  ON. .  .GOTO,  ON.  .  .GOSUB. 

•  Al  livello  2,  si  utilizzeranno  le  istruzioni  di  gestione  e  di  manipolazione 
degli  elementi  di  un  array  e  la  ricerca  di  un  elemento  in  una  stringa:  DIM, 
R(I),  READ,  DATA,  RESTORE. 

•  Al  livello  3  si  utilizzerà  la  serie  completa  delle  istruzioni  di  utilizzo  di 
stringhe  di  caratteri  e  le  istruzioni  che  permettono  la  visualizzazione  e  la 
grafica  con  differenti  livelli  di  risoluzione:  COLOR,  PLOT,  GRAPHICS, 
DRAWTO. 

•  Il  livello  4  tratta  un’istruzione  molto  particolare,  che  facilita  la  realizza¬ 
zione  di  giochi  interattivi:  GET  ed  esplora  le  risorse  di  POKE. 

•  Per  finire,  il  livello  5  ci  farà  scoprire  le  istruzioni  più  specifiche:  LOCA¬ 
TE,  TRAP,  POP  e  costituisce  il  risultato  dell’opera. 

Ogni  gioco  è  presentato  in  maniera  sistematica  con  una  corta  descrizione 
introduttiva,  seguita  dallo  studio  dettagliato  di  ognuna  delle  linee  impor¬ 
tanti  del  programma.  Seguono  le  indicazioni  necessarie  al  buon  funziona¬ 
mento  del  gioco  e  alcuni  suggerimenti  per  estendere  o  migliorare  il  gioco 
proposto.  Segue,  infine,  il  listato  del  programma  funzionante  su  ATARI, 
ottenuto  su  una  stampante  ATARI  per  garantire  contro  rischi  di  malfun¬ 
zionamento. 


LIVELLO  1 


N. 

Nome  del  programma 

Tema  e  particolarità 

1 

Il  numero  misterioso 

Gioco  di  deduzione,  per  1  giocatore.  Vari 
livelli 

2 

Cubo 

Gioco  di  disegno:  prospettiva  sullo  scher¬ 
mo 

3 

Caldo,  freddo 

Logica  e  fortuna,  per  1  giocatore.  Vari  li¬ 
velli 

4 

Fiammiferi 

Gioco  di  riflessione  contro  il  calcolatore 

5 

Fiammiferi  in  molti 

Gioco  di  riflessione  e  di  strategia,  vari 
giocatori 

6 

Calendario  perpetuo 

Creazione  di  un  calendario  mese  per 
mese 

7 

Battaglia  navale 

Una  sola  nave  da  trovare,  con  qualche 
particolarità 

8 

Golf 

Un  percorso  con  18  buche,  per  1  solo  gio¬ 
catore 

9 

Solfeggio 

Imparate  il  solfeggio  con  l’aiuto  del  cal¬ 
colatore 

10 

Blackjack 

Gioco  di  fortuna,  il  calcolatore  tiene 
banco 

11 

Pari-Dispari 

Un  gioco  da  Casinò  in  tre  tempi  per  1  o 
più  giocatori 

12 

Indovina  un  numero 

Un  gioco  molto  facile,  per  1  o  più  gioca¬ 
tori 

13 

Il  gioco  di  Wytthof 

Un  gioco  di  riflessione  abbastanza  sem¬ 
plice,  per  due  giocatori 

14 

Rimbalzi 

Un  gioco  di  abilità  molto  visivo,  per  1 
giocatore 

15 

Jackpot 

Un  gioco  di  fortuna,  per  1  giocatore 

16 

Roulette 

Una  simulazione  elegante  del  famosissi¬ 
mo  gioco 

17 

Corridoi 

Un  gioco  di  logica  da  scoprire 

18 

Scacchiera 

Una  base  grafica  per  le  vostre  creazioni 

19 

Il  gioco  della  fava 

Un  gioco  di  riflessione,  per  2  giocatori 

20 

Gioco  dell’oca  casuale 

Un  vecchissimo  gioco,  rivisto  e  corretto 
dal  calcolatore,  per  2  giocatori. 

Istruzioni  elementari 


Tratteremo  qui  solo  le  istruzioni  fondamentali,  o  istruzioni  di  programma¬ 
zione;  molti  altri  comandi,  o  funzioni  particolari,  saranno  utilizzati  quan¬ 
do  occorre.  Per  esempio: 

—  RND(l)  per  ottenere  un  numero  casuale  tra  0  e  1. 

—  INT  per  prendere  la  parte  Intera  di  un  risultato. 

—  REM  per  mettere  un  commento. 

—  END  per  terminare  un  programma. 

—  DIM  per  riservare  uno  spazio  a  una  stringa  di  caratteri. 

Le  istruzioni  fondamentali  della  programmazione,  utilizzate  già  al  livello  1 
e  presenti  praticamente  in  tutti  i  programmi  sono: 

LET  (opzionale);  PRINT;  INPUT;  GOTOI _ I;  IFI _ ITHENI _ I; 

FOR.  .  NEXT;  GOSUB.  .  RETURN. 

ossia  solamente  sette  istruzioni  di  base  (e  due  istruzioni  derivate)  che  esa¬ 
mineremo  ora  più  dettagliatamente. 

N.B.  Tutte  le  istruzioni  hanno  una  forma  abbreviata  che  facilita  la  battitu¬ 
ra:  bastano  generalmente  le  prime  due  lettere  dell’istruzione,  seguite  da 
un  punto:  per  esempio  PR.  =  PRINT. 

L'ISTRUZIONE  LET,  O  ISTRUZIONE  DI  ASSEGNAZIONE 

È  l’istruzione  per  eccellenza  dei  linguaggi  di  programmazione  evoluti,  vi¬ 
sto  che  il  suo  ruolo  essenziale  è  di  permettere,  per  il  programmatore,  una 
gestione  trasparente  della  memoria.  Questo  significa,  in  pratica,  che  per 
inserire  una  quantità  in  memoria,  per  esempio  12,  non  è  necessario  sapere 
in  quale  locazione  di  memoria  la  si  deporrà:  basta  assegnarle  un  nome  au¬ 
torizzato,  col  quale  la  quantità  sarà  in  seguito  ritrovata  e  manipolata. 

—  Se  la  quantità  è  numerica,  il  nome  sarà  una  semplice  lettera  dell'alfa¬ 
beto,  o  un  insieme  di  varie  cifre  o  lettere,  che  inizia  obbligatoriamente  con 
una  lettera. 

—  Se  la  quantità  è  alfanumerica,  si  applica  la  stessa  regola,  ma  il  nome 
dovrà  essere  seguito  dal  simbolo  $  e  la  variabile  dovrà  essere  scritta  tra 
virgolette. 
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Esempio: 

LET  Al  =  12;  la  variabile  numerica  Al  prende  il  valore  12. 

LET  NOM$=*RENOIR";  la  variabile  alfanumerica  NOM$  prende  il  valore 
RENOIR. 

N.B.  Prima  bisognava  dimensionare  la  variabile  NOM$  con  il  comando 
DIM.  Così  per  esempio  il  comando  DIM  NOM$(50)  limita  la  stringa  NOM$ 
a  un  massimo  di  50  caratteri. 

In  ATARI,  come  nella  maggior  parte  dei  Basic,  il  LET  è  diventato  opziona¬ 
le,  non  essendo  possibile  nessuna  ambiguità,  scriveremo  dunque:  A=12  ; 
NOM$ = "TOTO”;  ecc. 


L'ISTRUZIONE  PRINT  O  ISTRUZIONE  DI  USCITA 
(SCHERMO) 

È  un’istruzione  di  dialogo,  che  permette  al  calcolatore  di  visualizzare  sullo 
schermo  un  testo,  il  risultato  di  un  calcolo,  o  una  variabile.  È  il  solo  modo 
che  possiede  il  personal  computer  per  far  conoscere  i  suoi  risultati.  Così 
PRINT  Al  provoca  la  visualizzazione  di  12  (se  era  stato  fatto  prima 
Al  =  12)  ;  PRINT  A$  provoca  la  visualizzazione  di  BUONGIORNO  (se  era 
stato  fatto  prima  A$= "BUONGIORNO").  Utilizzato  dopo  aver  cancellato  lo 
schermo,  il  PRINT  provoca  la  visualizzazione  sulla  prima  linea,  in  alto,  a 
sinistra. 

Un  certo  numero  di  parametri  possono  essere  utilizzati  per  ottenere  sullo 
schermo  una  visualizzazione  adeguata: 

—  Un  ;  (punto  e  virgola)  a  seguito  del  PRINT  permette  sia  di  concatenare 
un’altra  stampa  senza  ripetere  l’istruzione  PRINT,  sia  di  indicare  che  la 
prossima  stampa  sarà,  in  assenza  di  un’indicazione  contraria,  effettuata 
esattamente  al  seguito  della  stampa  precedente. 

—  La ,  (virgola)  provoca  una  tabulazione  orizzontale  automatica  predefini¬ 
ta. 

Durante  la  scrittura,  l’istruzione  PRINT  potrà  essere  abbreviata  battendo 
?  (punto  interrogativo).  Durante  una  stampa,  ogni  numero  è  preceduto  da 
un  segno  ;  ma  il  segno  positivo  non  è  visualizzato. 


L'ISTRUZIONE  POSITION 

L’ATARI  dispone  di  una  istruzione  particolare,  di  uso  molto  elastico,  che 
permette  di  posizionare  il  cursore  sullo  schermo,  in  vista  della  prossima 
scrittura.  Si  tratta  dell’istruzione  POSITION  X,Y.  X  corrisponde  ad  una 
tabulazione  orizzontale  (tra  0  e  39)  e  Y  ad  una  tabulazione  verticale  (tra  0  e 
23). 

Così,  per  scrivere  la  parola  BUONGIORNO  alla  quinta  colonna  dell’ottava 
riga,  si  scriverà: 

POSITION  5,8;PRINT  "BUONGIORNO" 

N.B.  senza  l’istruzione  POSITION,  gli  inizi  di  riga  cominciano  alla  2 a  co¬ 
lonna. 
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L'ISTRUZIONE  INPUT,  O  ISTRUZIONE  D’INGRESSO 
(TASTIERA) 

Questa  istruzione,  che  provoca  l’arresto  e  l’attesa  del  calcolatore,  permet¬ 
terà  di  inserire  un  numero,  o  un  testo,  che  sarà  assegnato  alla  variabile 
attraverso  l’ordine  INPUT.  Questo  è  fatto  in  modo  conversazionale,  cioè  in 
funzione  delle  necessità;  infatti,  quando  TATARI  trova  una  istruzione  IN¬ 
PUT,  si  ferma  e  vi  passa  la  mano;  si  può  allora  inserire  un’informazione  di 
natura  adeguata  (numero  o  testo)  e  segnalare  che  questo  inserimento  è  ter¬ 
minato  con  il  comando  RETURN,  il  che  gli  restituirà  la  mano. 

Se  l’informazione  inserita  non  è  di  natura  adeguata  (battete,  per  esempio, 
un  testo  su  un  INPUT  X,  che  aspetta  un  numero),  sarà  segnalato  errore 
con  arresto  del  programma. 


L’ISTRUZIONE  GOTO  O  ISTRUZIONE 
DI  SALTO  INCONDIZIONATO 

Una  delle  particolarità  del  linguaggio  Basic,  che  lo  rende  facilmente  acces¬ 
sibile,  è  che  ogni  linea  di  programma  deve  essere  preceduta  da  un  nume¬ 
ro,  queste  linee  sono  in  seguito  eseguite  dal  personal  computer  in  sequen¬ 
za,  nel  senso  crescente  dei  numeri.  Per  diverse  ragioni,  potrebbe  essere  ne¬ 
cessario  durante  lo  svolgimento  di  un  programma,  non  seguire  questo  or¬ 
dine  sequenziale  molto  rigido;  utilizzeremo  allora  l’istruzione  GOTO,  che 
permette  di  dirottare  il  funzionamento  del  programma  dal  suo  corso  nor¬ 
male,  con  la  possibilità  d’altronde  di  riprenderlo  in  seguito  con  un  altro 
GOTO. 

Il  rinvio  deve  peraltro  essere  fatto  a  un  numero  di  riga  esistente  nel  pro¬ 
gramma  (GOTO  20,  per  esempio). 

Per  dare  un  po’  di  elasticità  a  questa  istruzione  di  rinvio,  esiste  un'istru¬ 
zione  molto  potente,  che  permette  di  rinviare  ad  un  qualunque  numero  di 
linea,  secondo  il  valore  di  una  variabile  numerica:  è  l’istruzione 
ONI _ IGOTOI _ I  ;  scriveremo,  per  esempio: 

ON  X  GOTO  100,  200,  300 

ed  il  rinvio  sarà  fatto  alla  linea  100  se  X  vale  1,  alla  linea  200  se  X  vale  2,  e 
300  se  X  vale  3. 


L’ISTRUZIONE  IFI _ ITHENI _ I  O  ISTRUZIONE 

DI  TEST 

Possiamo  utilizzarla  in  due  maniere  diverse.  In  rottura  di  sequenza  condi¬ 
zionale  sotto  la  forma: 

IF  (condizione = vera)  THEN  (numero  di  linea). 

È  l’utilizzo  più  corrente  di  questo  test,  che  permette  di  rinviare  ad  un’altra 
parte  del  programma,  se  per  esempio  X  =  0,  o  se  A  — B,  ecc.  Gli  operatori 
logici  NOT,  OR  o  AND  possono  d’altronde  essere  utilizzati  nella  scrittura 
della  condizione. 
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Si  può  però  utilizzare  il  test  nella  forma: 

IF  (condizione!  THEN  (istruzione)  ; 

l’istruzione  presentata  al  seguito  di  THEN  può  essere  un’assegnazione:  es. 
A=12,  una  stampa:  es.  PRINT  A,  una  immissione:  es.  INPUT  B$,  o  anche 
un  altro  test  IFI _ ITHENI _ I. 

Possiamo  per  esempio  scrivere: 

IF  A>3  THEN  IF  B<7  THEN  PRINT  A+B 


L’ISTRUZIONE  FOR. . .  NEXT, 
O  ISTRUZIONE  DI  CICLO 


Siamo  spesso  condotti,  in  programmazione,  a  voler  eseguire  un  numero  in¬ 
tero  di  volte  una  certa  serie  d’istruzioni  (per  esempio,  fare  avanzare  un 
punto  mobile  dalla  casella  6  alla  casella  20,  ecc.).  Piuttosto  che  utilizzare 
un  test  ed  un  rinvio,  sarà  meglio  utilizzare  un  ciclo;  la  variabile  di  ciclo 
sceglie  i  suoi  valori  negli  interi  o  nei  decimali  e  il  passo  di  questa  variabi¬ 
le  (cioè  la  quantità  di  cui  aumenta  o  diminuisce  ad  ogni  passaggio)  può 
anch’esso  scegliere  i  suoi  valori  negli  interi  o  nei  decimali. 

Così  se  scriviamo: 


FOR  I  = 
NEXT  I 


0  TO  20  STEP  2 
istruzioni 


Le  istruzioni  contenute  nel  ciclo  saranno  eseguite  per  1=0,  per  1  =  2, ..  .  e 
questo  fino  a  I  =  20,  ossia  1 1  volte.  La  variabile  I  può  essere  usata  per  fare 
un  calcolo  nel  ciclo,  ma  non  dovrà  esservi  modificata.  Possiamo,  natural¬ 
mente,  uscire  dal  ciclo  prima  di  I  =  20,  con  un  test  condizionale  indicante 
una  quantità  qualunque. 

Se  il  passo  del  ciclo  (STEP)  non  è  precisato,  sarà  automaticamente  preso 
uguale  a  1. 

È  possibile  concatenare  vari  cicli  di  nome  diverso. 

L’ISTRUZIONE  GOSUB,  O  ISTRUZIONE  DI  RICHIAMO 
DI  SOTTOPROGRAMMA 

Quando  una  stessa  serie  di  istruzioni  deve  essere  eseguita  varie  volte,  e 
richiamata  da  diverse  zone  del  programma,  eviteremo  di  riscriverla  più 
volte.  La  scriveremo  una  volta  per  tutte  e  la  posizioneremo  fuori  del  pro¬ 
gramma  vero  e  proprio  (dandole,  per  esempio,  un  numero  di  linea  superio¬ 
re  al  numero  dell’ultima  linea  del  programma).  Indipendentemente  dalle 
difficoltà  che  potremo  incontrare  per  i  nomi  delle  variabili,  quando  vorre¬ 
mo  utilizzare  questa  sequenza,  basterà  chiamarla  con  l’istruzione  GOSUB 
(numero  di  linea). 

Il  programma  farà  allora  una  deviazione  nella  parte  richiamata,  ma  non 
potrà  proseguire  il  suo  svolgimento  normale  se  non  incontra  un’istruzione 
RETURN  o  istruzione  di  ritorno. 
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Ecco  lo  schema  teorico  di  funzionamento: 


Programmma  principale 
10 


1000 

1010 


1200  RETURN 


600 


Fine  del  programma 
principale 


Il  sottoprogramma  è  scritto 
solo  una  volta,  ma  è  richiamato 
quante  volte  si  vuole 


1000 

i 

I 

! 

1200  RETURN 


Sottoprogramma  1 


Un  sottoprogramma  potrà  a  sua  volta  eventualmente  richiamarne  un  altro 
e  così  via. 

Possiamo  anche  richiamare  un  sottoprogramma  in  modo  condizionato, 
usando  l’istruzione  ONI _ IGOSUBI _ I. 

Per  esempio  ON  X  GOSUB  1000,  2000,  3000  permetterà  di  eseguire  il  sot¬ 
toprogramma  posizionato  a  1000  se  X  =  l,  a  2000  se  X=2,  a  3000  se  X  =  3. 

N.B.  Per  facilitare  l’accesso  al  programma  è  possibile  utilizzare  un  segna¬ 
le  (cioè  un  nome  alfabetico)  per  rappresentare  un  numero  di  passo  del  pro¬ 
gramma  dato.  Così,  se  MUSIQUE  =  1000,  l’istruzione  "GOTO  MUSIQUE” 
equivale  a  "GOTO  1000”. 
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numero  misterioso 


Programmazione:  facile. 

Categoria  del  gioco:  gioco  di  deduzione  per  un  gioca¬ 
tore. 

Difficoltà  del  gioco:  facile. 

Si  chiede  al  calcolatore  di  definire  un  numero  di  n  ci¬ 
fre  (con  n  compreso  tra  1  e  7). 

Si  dovrà  quindi  cercare  di  indovinarlo  col  minor  nu¬ 
mero  di  tentativi  possibile,  ricevendo  le  sole  informa¬ 
zioni  TROPPO  GRANDE  o  TROPPO  PICCOLO. 

IL  PROGRAMMA:  La  linea  70  permette  di  creare  il  numero  da  indovi¬ 
nare. 

Gli  inserimenti  sono  fatti  dalle  linee  90-100. 

La  linea  110  verifica  se  il  risultato  è  esatto. 

La  linea  120  segnala  un  tentativo  troppo  piccolo  e  la 
linea  130  uno  troppo  grande. 

Il  contatore  di  tentativi  è  alla  linea  140. 

Le  linee  da  200  a  230  si  occupano  della  visualizzazio¬ 
ne  dei  risultati  e  della  gestione  della  parte  seguente. 

PER  GIOCARE:  Si  farà  partire  il  programma  con  RUN. 

Si  otterrà  un  primo  messaggio  NUMERO  DI  CIFRE? 
al  quale  si  risponde  con  un  intero  tra  1  e  7,  seguito 
da  RETURN. 

Si  avrà  allora  il  messaggio  PROVA  N.l,  seguito  dalla 
domanda  IL  TUO  NUMERO. 

Si  inserisce  un  numero  e  si  schiaccia  RETURN. 

Si  ottiene  allora  la  risposta  TROPPO  PICCOLO  o 
TROPPO  GRANDE,  oppure,  se  si  è  riusciti  ad  indovi¬ 
nare,  il  messaggio  HAI  TROVATO. ...IN. ...PROVE. 

Se  il  risultato  non  è  esatto,  si  ritorna  a  PROVA  N.2,  e 
IL  TUO  NUMERO. 

Alla  fine  del  gioco,  appare  la  domanda  UN'ALTRA 
PARTITA?  (S/N);  si  risponde  S  per  fare  un’altra  parti¬ 
ta  (seguito  da  RETURN). 

Si  può  fermare  il  gioco  in  qualsiasi  momento  batten¬ 
do  BREAK. 

ESTENSIONI  POSSIBILI:  Potremmo  immaginare  di  fare  indovinare  al 
giocatore  non  un  numero  ma  qualcos’altro  (per  esem¬ 
pio  una  parola,  utilizzando  l’ordine  alfabetico,  o 
un’altra  cosa  ancora...). 

Nota  per  rientrare  nel  programma:  il  carattere  *1  si 
ottiene  con  ESC,  SHIFT,  CLEAR 


II 


RIFERIMENTI: 


IL  GIOCO: 
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10  REM  IL  NUMERO  MISTERIOSO 
20  DIM  R*<1> 

30  FRI NT  ">" 

40  FRI NT  "NUMERO  DI  CIFRE ; " i • INPUT  N 
50  IF  N>  7  THEN  RUN 
60  IF  N<=0  THEN  RUN 
70  X» I NT  < RND < 1 >  * 1 0AN+ 1 ) 

80  J=1 

90  FRI NT  -FRI NT  "PROVA  No  "; J 

100  PRINT  "IL  TUO  NUMERO  ■“ i • INPUT  M 

110  IF  M=X  THEN  280 

120  IF  M<X  THEN  PRINT  "TROPPO  PICCOLO" 

130  IF  M>X  THEN  PRINT  "TROPPO  GRANDE" 

140  J=J+1 

150  PRINT  ! PRINT 

ISO  GOTO  30 

200  PRINT  "HAI  TROVATO  "jXì"  IN  ";Jj"  PROVE" 
220  PRINT  "UN'ALTRA  PARTITA  <S/N>"> > INPUT  R* 
230  IF  R$="S"  THEN  RUN 
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Cubo 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  disegno. 

Difficoltà  del  gioco:  nessuna. 

IL  GIOCO:  Il  programma  si  propone  di  realizzare  con  l’aiuto  del¬ 

l'istruzione  PRINT  una  vista  di  un  cubo  in  prospetti¬ 
va. 

Potrebbe  essere  per  esempio  incorporato  in  un  gioco 
basato  sulle  capacità  di  riconoscimento  delle  forme 
geometriche  elementari. 

IL  PROGRAMMA:  Il  disegno  del  cubo  è  realizzato  mediante  punti,  uti¬ 
lizzando  due  cicli:  il  ciclo  I  (30-120)  e  il  ciclo  I 
(130-180). 

Il  nome  dell’oggetto  raffigurato  è  scritto  alla  li¬ 
nea  200  (qui:  CUBO). 

PER  GIOCARE:  Basta  far  partire  il  programma  con  RUN  e  guardare. 

ESTENSIONI  POSSIBILI:  L’alta  risoluzione  permetterà  di  avere  un  trac¬ 
ciato  più  preciso. 

Potremmo  immaginare  un  gioco  utilizzante  dei  paral¬ 
lelepipedi  di  differenti  misure,  con  visualizzazione 
per  esempio  dei  tre  lati,  dovendo  calcolare  il  volume, 
ecc. 
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1@  REM  CUBO 
20  GRAPHICS  0 
30  FOR  1=0  TO  10 
40  PÓSITION  7+I,0«PRINT 
50  POSITION  1,7 'PRINT  '‘.H 
60  POSITION  7+1 , 10‘PRINT 
70  POSITION  I, 17!PRINT  ".u 
80  POSITION  0/ 7+1 «PRINT 
90  POSITION  10/7+1 ‘PRINT 
100  POSITION  7/ I 'PRINT  M." 

110  POSITION  17/1  « PRINT 
120  NEXT  I 
130  FOR  1=0  TO  7 
140  POSITION  I, 7-1 «PRINT 
150  POSITION  10+1/ 7-1 «PRINT 
160  POSITION  1/ 17-1  «PRINT 
170  POSITION  10+1/ 17-1 «PRINT 
180  NEXT  I 

190  POSITION  26, 19 «PRINT 

280  POSITION  26/ 20 «PRINT  HCUB0Mj 

210  POSITION  26,21  «PRINT 
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Caldo,  freddo 


RIFERIMENTI:  Programmazione:  di  media  difficoltà. 

Categoria  del  gioco:  solitario. 

Difficoltà  del  gioco:  media. 

IL  GIOCO:  Uno  dei  più  vecchi  giochi  del  mondo,  sempre  in  voga, 

ma  questa  volta  è  il  calcolatore  che  vi  fa  da  compa¬ 
gno:  infatti  nasconderà  un  oggetto  in  una  certa  posi¬ 
zione  di  una  griglia  di  cui  avrete  voi  stessi  scelto  le 
dimensioni.  Per  trovarlo,  non  vi  darà  che  qualche  in¬ 
dicazione,  sotto  la  forma  BRUCI,  o  FA  FREDDO,  ecc. 
Dovete  riuscire  a  trovare  l’oggetto  nascosto  col  mi¬ 
nor  numero  di  tentativi  possibile  (il  vostro  punteggio 
sarà  visualizzato  alla  fine  della  partita). 

IL  PROGRAMMA:  Le  linee  30  e  40  definiscono  la  posizione  dell’oggetto. 

La  linea  90  calcola  la  distanza  in  funzione  delle  due 
coordinate  che  avete  inserito  alle  linee  60  e  70. 

La  linea  100  controlla  se  avete  vinto. 

Le  linee  120-130  normalizzano  la  distanza  (che  deve 
avere  un  senso,  quali  siano  le  dimensioni  della  gri¬ 
glia  iniziale). 

La  linea  140  effettua  la  partenza,  se  c’è  posto,  verso 
uno  dei  sottoprogrammi  di  visualizzazione. 

PER  GIOCARE:  Si  fa  partire  il  programma  con  RUN,  poi  si  inserisco¬ 

no  le  dimensioni  della  griglia  (quadrata)  e  si  batte 
RETURN. 

Già  dalla  visualizzazione  seguente  FORNISCI  X,  si 
inserisce  la  coordinata  supposta  di  X,  seguita  da  RE¬ 
TURN. 

Si  ottiene  in  seguito  il  messaggio  FORNISCI  Y  e  si 
inserisce  Y,  seguito  da  RETURN. 

Si  ottiene  in  risposta  un  testo,  che  varia  in  funzione 
della  distanza  dall’oggetto  cercato  (si  va  da  COMPLE¬ 
TAMENTE  GELATO  a  BRUCIATO).  Quando  lo  si  è 
trovato,  si  ottiene  la  visualizzazione  del  numero  di 
tentativi  effettuati. 

Per  uscire  dal  programma  prima  della  fine  della  par¬ 
tita,  basta  premere  BREAK. 

ESTENSIONI  POSSIBILI:  Se  si  dispone  del  colore,  sarà  interessante  tro¬ 
vare  un  modo  più  immediato  per  simbolizzare  la  di¬ 
stanza,  per  esempio  delle  mattonelle  varianti  dal  ros¬ 
so  al  blu  nelle  posizioni  tentate. 

Si  potrebbe  anche  lavorare  in  uno  spazio  a  tre  dimen¬ 
sioni,  nascondere  vari  oggetti  ecc. 
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10  REM  CALDO, FREDDO 

20  PRINT  "DIMENSIONE  DELLA  GRIGLIA  INPUT  D 
30  X=INT<RND<1>*D+1> 

40  Y= I NT  <  RND  < 1 >  *D+ 1 > 

50  PRINT  ">" 

60  PRINT  "Fornisci  X  >"j‘ INPUT  A 
70  PRINT  "fornisci  Y  >"; ‘INPUT  B 
80  S=S+1 

90  T =ABS  <  X-A  >  +ABS  <  Y-B  > 

100  IF  T=0  THEN  6000 
110  PRINT  "Sei  “i 
120  N=INT<SQR<D)/T)+1 
130  IF  N>5  THEN  N=5 

140  IF  T<=SQR<D)  THEN  ON  N  GOTO  1000,2000/3080/4000,5000 
150  PRINT  "completamente  GELATO. " 

160  GOTO  60 

1000  PRINT  "appena  TIEPIDO." 

1010  GOTO  60 

2000  PRINT  "TIEPIDO." 

2610  GOTO  60 
3000  PRINT  "CALDO." 

3010  GOTO  60 

4000  PRINT  "MOLTO  CALDO." 

4010  GOTO  60 

5000  PRINT  "BRUCIATO." 

5010  GOTO  60 
6000  PRINT  ">" 

6018  PRINT  "trovato  in  ",S,"  Prove" 
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Fiammiferi 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  facile. 

Categoria  del  gioco:  contro  TATARI. 

Difficoltà  del  gioco:  media. 

Il  giocatore  dovrà  all’inizio  della  partita  scegliere  un 
certo  numero  di  fiammiferi,  così  come  la  presa  mas¬ 
sima  autorizzata.  Decide  quindi  se  cominciare,  o  se 
lasciare  la  prima  mossa  all'ATARI.  Ognuno  prende  a 
turno  tanti  fiammiferi  quanti  ne  desidera,  nel  limite 
del  massimo  consentito. 

Quello  che  prende  l’ultimo  fiammifero  è  considerato 
perdente. 

La  mano  del  giocatore  comincia  alla  linea  70. 

Quella  dell’ ATARI  alla  linea  110. 

La  linea  80  controlla  la  legalità  della  giocata  del  gio¬ 
catore. 

La  linea  90  gestisce  il  cambiamento  del  giocatore. 

La  mano  delTATARI  è  calcolata  in  un  ciclo  non  for¬ 
male,  dalla  linea  120  alla  linea  150. 

Il  risultato  è  visualizzato  dalla  linea  1010. 

Se  la  partita  non  è  terminata,  la  linea  1030  lo  perce¬ 
pisce. 

Si  parte  con  RUN  e,  all’apparizione  del  messaggio 
NUMERO  TOTALE  DI  FIAMMIFERI,  si  inserisce  il 
numero  di  fiammiferi,  seguito  da  RETURN.  Poi  si  in¬ 
serisce  la  presa  massima  autorizzata,  seguita  da  RE¬ 
TURN.  Se  il  giocatore  vuole  iniziare,  batte  in  seguito 
0;  altrimenti  batte  1,  poi  RETURN. 

Dopo  ogni  mano  è  visualizzato  il  numero  di  fiammi¬ 
feri  rimanenti  e  TATARI  avverte  TIRA  ANCORA 
quando  tocca  al  giocatore  prendere. 

Chi  prende  l’ultimo  fiammifero  ha  perso. 


ESTENSIONI  POSSIBILI:  Potremmo  naturalmente  immaginare  una  vi¬ 
sualizzazione  grafica  a  colori,  potremmo  anche  la¬ 
sciare  al  caso  la  scelta  del  numero  di  fiammiferi  e  la 
presa  massima,  ecc. 
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10  REM  FIAMMIFERI 
28  GRAPHICS  0 

30  PRINT  "Numero  totale  di  fiammiferi  ■ "; *  INPUT  N 

40  PRINT  "Presa  massima  per  colpo  INPUT  I 

50  PRINT  "Chi  comincia  <Tu=0-  Io'l>  •";= INPUT  D 

60  IF  D=1  THEN  110 

70  PRINT  "Tira  ancora  1 ' INPUT  P 

80  IF  POINT<P>  OR  P<1  OR  P>I  OR  P>N  THEN  70 

90  D=1 

100  GOTO  1000 

110  S=I+1 

120  T=<N-S)/<I+1) 

130  IF  T*INT<T>  THEN  200 
140  S=S-1 
150  GOTO  120 
200  P=ABS<S-1) 

210  IF  P=0  THEN  P*1 
220  D=»0 

230  PRINT  “Prendo  ";P 
1000  N=N-P 

1010  PRINT  "Rimangono  "<Nj"  fiammiferi." 

1020  PRINT 

1030  IF  NO0  THEN  60 
104©  PRINT  ">" 

1050  IF  D=1  THEN  PRINT  "Ho  vinto..." 

1060  IF  DOl  THEN  PRINT  "Bravo" 
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Fiammiferi  in  molti 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  logica  (vari  giocatori). 

Difficoltà  del  gioco:  elevata. 

IL  GIOCO:  In  questo  gioco  per  vari  giocatori,  il  direttore  del  gio¬ 

co  dovrà,  all’inizio  della  partita,  scegliere  un  numero 
di  fiammiferi  ed  indicare  all’ATARI  il  numero  di  gio¬ 
catori. 

Ad  ogni  mano  il  giocatore  di  turno  è  autorizzato  a 
prendere  dal  mucchio  di  fiammiferi  rimanenti  fino  al 
doppio  di  quanto  ha  preso  il  giocatore  precedente; 
colui  che  prende  l’ultimo  fiammifero  ha  vinto  (o  per¬ 
so  se  si  modificano  leggermente  le  regole). 

IL  PROGRAMMA:  Le  linee  da  10  a  40  permettono  i  differenti  ingressi. 

Le  linee  da  70  a  100  realizzano  le  stampe. 

La  linea  120  controlla  la  mano  di  ogni  giocatore  (in 
rapporto  alla  mano  precedente). 

La  linea  170  gestisce  le  mani  (rimessa  a  1  del  numero 
del  giocatore). 

La  linea  150  realizza  il  test  finale  e  la  linea  200  visua¬ 
lizza  il  numero  del  giocatore  vincente  (con  la  regola 
prevista  inizialmente). 


PER  GIOCARE:  Dopo  aver  lanciato  il  programma  con  RUN,  si  inseri¬ 

sce  il  numero  di  fiammiferi  iniziale,  seguito  da  RE¬ 
TURN,  poi  il  numero  di  giocatori  (e  RETURN). 

Il  primo  giocatore  potrà  prendere  solo  un  fiammife¬ 
ro,  il  secondo  ne  potrà  prendere  uno  o  due;  il  seguen¬ 
te  1,2,  o  1,2,3  o  4  in  funzione  della  mano  precedente, 
e  così  via;  il  numero  massimo  è  ogni  volta  visualizza¬ 
to  dall’ATARI.  Quando  l’ultimo  fiammifero  è  stato 
preso  si  ottiene  il  messaggio  IL  GIOCATORE  .  .  .  HA 
VINTO  e  la  partita  è  terminata. 

ESTENSIONI  POSSIBILI:  Si  può  decidere  che  quello  che  prende  l’ultimo 
fiammifero  è  eliminato  dal  gioco  e  ricominciare  la 
partita  con  i  giocatori  rimanenti  che  saranno  an- 
ch’essi  eliminati  gli  uni  dopo  gli  altri. 

Possiamo  anche  immaginare  una  rappresentazione 
grafica  del  mucchio  di  fiammiferi,  scegliere  a  caso  il 
numero  da  prendere  all'inizio  della  partita  ecc. 
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10  REM  FIAMMIFERI  IN  MOLTI 
20  GRAPHICS  0 

30  PRINT  "Numero  totale  di  fiammiferi  «";• INPUT  N 
40  PRINT  “Numero  di  giocatori  s";i INPUT  J 

50  F=1 
66  K=  1 

70  PRINT  ">" 

80  PRINT  "Turno  del  giocatore  ";K 
30  PRINT  "Totale  rimasto  ‘">N 
100  PRINT  "Massimo  da  togliere  • " ;F 
110  PRINT  "Il  tuo  colpo  = " ; ‘ INPUT  C 
120  IF  C=0  OR  OF  OR  ON  THEN  110 
130  N=N-C 
140  F=2*C 

150  IF  N=0  THEN  190 
160  K-K+l 

170  IF  K> J  THEN  K=1 
180  GOTO  78 
130  PRINT  ">" 

200  PRINT  "Il  giocatore  »ìKj"  ha  vinto." 
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Calendario  perpetuo 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  di  media  difficoltà. 

Categoria  del  gioco:  gadget  pubblicitario. 

Difficoltà  del  gioco:  nessuna. 

Questo  programma  vi  permetterà  di  creare  tutti  gli 
anni  il  vostro  calendario;  potrete  così  servirvene  per 
mandare  ai  vostri  amici  un  calendario  del  mese  della 
loro  nascita,  o  per  augurar  loro  buone  feste,  ecc. 

Le  linee  30  e  40  vi  permettono  di  inserire  il  mese  e 
l’anno. 

Le  linee  50,  60  e  70  calcolano  il  numero  del  primo 
giorno  del  mese. 

La  linea  80  calcola  il  numero  del  giorno  del  mese 
(non  si  è  tenuto  conto  qui  del  29  febbraio,  per  sempli¬ 
ficare). 

Il  ciclo  A  (130-160)  realizza  la  stampa  del  calendario. 

Dopo  aver  lanciato  il  programma  con  l'istruzione 
RUN,  si  dovrà  introdurre  l’anno,  per  esempio  1985, 
seguito  da  RETURN. 

Si  ottiene  allora  la  domanda  MESE,  alla  quale  con¬ 
viene  rispondere  con  il  numero  del  mese,  secondo 
l’ordine  usuale  (1  per  GENNAIO,  2  per  FEBBRAIO, 
ecc.). 

Si  batte  in  seguito  RETURN;  allora  il  calendario  vie¬ 
ne  visualizzato  sullo  schermo. 


ESTENSIONI  POSSIBILI:  Potremmo  prevedere  senza  difficoltà  la  stam¬ 
pa  dei  29  Febbraio,  prevedere  un’opzione  che  per¬ 
metta  la  stampa  per  un  anno  completo,  prevedere 
l’introduzione  del  nome  dei  mesi  in  chiaro,  ecc. 
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10  REM  CALENDARIO  PERPETUO 
26  GRAPHICS  0 

30  PRINT  “Quale  armo  *  ";  > INPUT  A 
40  PRINT  "Quale  mese  ‘  “f-  INPUT  M 
50  D=INT<365.25*<A-<M<3>>>+1 

60  D=D+IHT<30.6*<M+l+<M<3>*12>>-IHT<<INT<<A-<ri<3))/100)-7>*0.?5) 
70  D-D-7*INT<D/7> 

80  M=31-(M=4  OR  M=6  OR  M*3  OR  M=1 1>-<M*2>*3 
90  PRINT 

100  PRINT  "DGM  LUN  MAR  MER  GIO  VEN  SAB" 

110  PRINT 
120  L=6 

t30  FOR  A®1  TO  H 

140  POSITION  3+4*<D+A-l),L* PRINT  A 
150  IF  D+A-1=S  THEN  L-L+l <D>D-7 
160  NEXT  A 
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Battaglia  navale 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  riflessione. 

Difficoltà  del  gioco:  bassa. 

IL  GIOCO:  Una  battaglia  navale  a  priori  abbastanza  semplice, 

con  una  sola  nave  nascosta  a  caso  in  una  griglia  di 
10  *  10  caselle. 

Per  ogni  colpo  bisogna  indicare  le  coordinate  O  (oriz¬ 
zontale)  e  V  (verticale)  della  casella  mirata;  TATARI 
risponde  visualizzando  la  distanza  che  separa  la  nave 
invisibile  dalla  casella  mirata;  se  si  colpisce  troppo 
vicino,  la  nave  può  nascondersi  nuovamente  in  modo 
casuale. 

IL  PROGRAMMA:  Il  ciclo  I  (40-70)  disegna  il  camp©  di  gioco. 

Le  linee  90-100  definiscono  la  posizione  della  nave. 
Le  coordinate  di  tiro  sono  inserite  alle  linee  120  e 
130;  la  linea  140  visualizza  il  colpo  sullo  schermo.  La 
distanza  è  calcolata  alla  linea  150;  la  linea  160  verifi¬ 
ca  se  si  è  fatto  o  no  centro. 

La  linea  180  interviene  per  spostare  la  nave  se  i  colpi 
si  avvicinano  troppo. 

La  linea  190  permette  la  visualizzazione  della  distan¬ 
za. 


PER  GIOCARE:  Il  campo  di  gioco  è  visualizzato  dopo  aver  battuto 

RUN.  Al  messaggio  RIGA,  si  risponde  dando  il  nume¬ 
ro  della  linea  orizzontale  sulla  quale  si  desidera  tira¬ 
re.  Si  batte  quindi  RETURN  e  alla  domanda  COLON¬ 
NA  si  risponde  dando  il  numero  della  colonna  verti¬ 
cale  seguito  da  RETURN. 

Se  si  tira  troppo  vicino,  si  ottiene  il  messaggio  PFF- 
FF...  che  significa  che  la  nave  nemica  ha  cambiato 
posizione. 

Se  si  tira  sulla  casella  giusta,  si  ottiene  la  visualizza¬ 
zione  del  numero  totale  dei  tiri  effettuati  per  vincere. 

ESTENSIONI  POSSIBILI:  Sono  innumerevoli,  anche  perché  la  battaglia 
navale  è  uno  dei  giochi  più  famosi  che  esistano.  Pos¬ 
siamo  introdurre  due  giocatori,  giocare  contro  TATA¬ 
RI,  mettere  varie  navi,  dei  sottomarini,  ecc. 
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ltì  REM  BATTAGLIA  NAVALE 
20  GRAPHICS  0 

30  FRI  NT  "  0  1  2  3  4  5  6  7  8  9" 

40  FOR  1=0  TO  9 

50  PRINT  li- . " 

60  PRINT 
70  NEXT  I 
80  S=S+ 1 

90  X=IHT<RN0< 1 >*10) 

100  V=INT <RND< 1 )*10) 

110  POSITION  0,21 -PRINT  " 

120  POSITION  0,21 -PRINT  "Risa  <")> INPUT  H 
130  POSITION  20,21 -PRINT  “Colonna  >" i  > INPUT  V 
140  POSITION  31V+5,21H+I -PRINT  S 
150  0= I NT  < SOR <<X-H>*<X-H)+<Y-V>*< Y-V ) ) ) 

160  IF  0=0  THEN  200 
1 70  S=S+ 1 

180  IF  0=1  THEN  POSITION  0,22'PRINT  "PFFFF... 
90 

190  POSITION  0,22 -PRINT  "Distanza  *"jDj" 
200  GOTO  110 
210  PRINT  ">" 

220  PRINT  " TROVATO  IN  "jSj "  COLPI" 


"'GOTO 

tl 
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Golf 


RIFERIMENTI:  Programmazione:  di  media  difficoltà. 

Categoria  del  gioco:  solitario. 
Difficoltà  del  gioco:  media. 


IL  GIOCO:  Si  tratta  di  riuscire  a  fare,  col  minor  numero  di  colpi 

possibile,  un  percorso  di  golf  con  18  buche.  Per  fare 
ciò,  occorre  colpire  la  palla  con  una  forza  più  o  meno 
grande,  fino  ad  ottenere  la  sua  caduta  nella  buca. 
Ma  attenzione,  il  caso  potrebbe  intervenire  su  ogni 
colpo,  così  spesso  dovrete  tornare  indietro  (bisogne¬ 
rà  allora  far  precedere  l’indicazione  della  forza  con 
un  segno  — ). 

IL  PROGRAMMA:  La  linea  50  permette  di  definire  la  posizione  della  bu¬ 
ca  e  la  linea  60  disegna  il  campo  di  gioco. 

Lo  spostamento  da  realizzare  è  calcolato  alla  li¬ 
nea  100. 

Il  ciclo  I  (120-170)  realizza  lo  spostamento  della  palla. 
La  linea  180  guarda  se  il  colpo  è,  o  no,  vincente;  se  lo 
è,  si  ricomincia  (linea  230)  fino  a  che  si  realizzino  18 
buche  (ciclo  S  (20-230);  fine  del  ciclo  in  250,  con  vi¬ 
sualizzazione  di  fine). 

PER  GIOCARE:  Si  ottiene  la  visualizzazione  del  campo  con  RUN  così 

come  il  disegno  della  palla  nella  sua  posizione  inizia¬ 
le  ed  il  testo:  BUCA  1.  FORZA;  si  deve  allora  rispon¬ 
dere  dando  la  forza  desiderata  (un  numero  tra  1  e 
300...). 

Subito  dopo  aver  battuto  RETURN,  la  palla  ricomin¬ 
cia  a  spostarsi;  può  a  questo  punto  sia  fermarsi  da¬ 
vanti  alla  buca  (nel  qual  caso  si  ricomincia),  sia  finir¬ 
ci  dentro  (si  passa  allora  alla  buca  seguente),  sia  sor¬ 
passarla:  si  dovrà  allora  batterla  con  una  forza  nega¬ 
tiva. 

Il  gioco  finisce  con  la  scritta  18  BUCHE  IN  .  .  .  COL¬ 
PI. 

ESTENSIONI  POSSIBILI:  Potremmo  espandere  il  gioco  per  fare  parteci¬ 
pare  più  giocatori,  migliorare  la  qualità  grafica,  uti¬ 
lizzare  una  rappresentazione  spaziale  del  campo  di 
gioco  riferirsi  ad  alcuni  videogiochi),  avere  un  terre¬ 
no  più  accidentato,  degli  ostacoli,  cambiare  il  club... 
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10  REM  GOLF 
20  FOR  3=1  T0  18 
30  GRAPHICS  0 
35  X=1 
40  X=»l 

50  T=INT<29*RND<l>+9> 

60  POSITION  1,6-PRINT 

70  POSITION  T.6-PRINT  “  “ -POSITION  X.5-PRINT  ““ 

80  POSITION  15,8-PRINT  " 

90  POSITION  0,8-PRINT  "Buca  ";Si“  Forza  -"J -INPUT  R 
100  F=INT<R*0.16-<ABS<R>*SQR<RND<1>+0.1>A2V1000> 

110  IF  F=0  THEN  70 

120  FOR  I=SGN<F>  TO  F  STEP  SGN<F> 

130  X=X+SGN<F> 

140  IF  X<39  AND  X>=1  THEN  POSITION  X-SGN<F>,5-PRINT  “  ” -POSITION  X.5-PRINT 

150  IF  X>=38  THEN  X»38 

160  IF  X<=1  THEN  X=l 

170  NEXT  I 

180  IF  X=T  THEN  210 

190  E=E+1 

200  GOTO  60 

210  POSITION  X/5-PRINT  "  " -POSITION  Xi6-PRINT  "" 

220  FOR  P=1  TO  500 -NEXT  P 
230  NEXT  S 
240  FRI NT  “>" 

250  PRINT  “18  buche  ir»  "lEi"  colei." 
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Solfeggio 


RIFERIMENTI:  Programmazione:  di  media  difficoltà. 

Categoria  del  gioco:  riflessione. 

Difficoltà  del  gioco:  bassa. 

IL  GIOCO:  Questo  programma  vi  propone  un’iniziazione  elemen¬ 

tare  al  solfeggio,  permettendovi  di  imparare  a  rico¬ 
noscere  facilmente  le  differenti  note,  che  appaiono  le 
une  dopo  le  altre  su  uno  spartito;  dopo  la  visualizza¬ 
zione  della  nota,  dovete  inserire  il  suo  nome  in  chia¬ 
ro  ed  il  vostro  punteggio  sarà  visualizzato  in  perma¬ 
nenza. 

Il  programma  è  previsto  inizialmente  per  la  chiave  di 
sol,  ma  sarà  facilmente  adattabile  ad  un’altra  chiave. 

IL  PROGRAMMA:  Il  ciclo  I  (50-70)  disegna  uno  spartito. 

La  nota  è  scelta  alla  linea  80  e  visualizzata  alle  linee 
90-100-110-120. 

La  linea  130  visualizza  il  punteggio. 

La  linea  140  visualizza  il  nome  della  chiave  (qui  chia¬ 
ve  di  sol)  e  vi  interroga. 

La  linea  160  si  occupa  della  fine  della  partita. 

Le  linee  170  e  180  effettuano  la  decodificazione  della 
nota  inserita. 

La  linea  200  controlla  il  risultato. 


PER  GIOCARE:  Dopo  aver  lanciato  il  programma  con  RUN,  apparirà 

10  spartito  assieme  alla  prima  nota. 

Risponderete  alla  domanda  QUAL  È  LA  NOTA?  dan¬ 
done  il  nome  in  lettere  (do,  re,  mi,  fa,  sol,  la,  si),  se¬ 
guito  da  RETURN. 

11  punteggio  vi  indicherà  se  è  esatto  o  no,  ed  una  nuo¬ 
va  nota  sarà  visualizzata. 

Per  fermare,  basterà  rispondere  0  seguito  da  RE¬ 
TURN,  alla  domanda  QUAL  È  LA  NOTA? 

ESTENSIONI  POSSIBILI:  Potremmo  innanzitutto  facilmente  modificare 
il  programma  per  permettervi  di  lavorare  con  le  di¬ 
verse  chiavi.  Potremmo  anche  migliorare  la  grafica, 
introdurre  il  colore,  il  suono  (quando  si  risponde  giu¬ 
sto  si  sentirà  la  nota,  per  esempio).  Potremmo  anche 
realizzare  seguendo  lo  stesso  principio  un  gioco  che 
vi  permetta  di  riconoscere  degli  accordi,  ecc. 
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10  REM  SOLFEGGIO 
20  DIM  R*<3> 

30  S*0‘P=0 
40  FRI  NT  ">" 

50  FOR  1=1  TO  5 

60  PQSITION  1 <2*1+1 >PRINT  " _ " 

70  NEXT  I 

80  X=3+ 1 NT  <  RND  < 1 >  * 1 2  > 

30  POSITION  20<X-3; PRINT 
100  POSITION  20/X-2  PRINT 
110  POSITION  18< X-l ; PRINT  "" 

120  POSITION  18.X-PRINT 

130  POSITION  3^20= PRINT  "PUNTI  "jS; "  IN  ";P;"  PROVE" 

140  POSITION  2» 22 : PRINT  "  CHIAVE  DI  SOL  -  QUAL  E'  LA  NOTA  " ;  1  INPUT  R$ 
150  IF  R$=H"  THEN  140 
160  IF  R#="0"  THEN  END 

1 70  Y=2+ 1  *R$=" SOL " +2*R$= “ FA "  +3*R$=  '* M I  " +4*R*= "RE "  +5*R$=  "DO " 

180  Y=Y+6*R$=“SI  "+7#R$=“LA" 

130  P=F'+ 1 

200  IF  Y=X  OR  <Y=X-7  AND  X>3)  THEN  S=S+1 
210  GOTO  40 
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Blackjack 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  contro  TATARI. 

Difficoltà  del  gioco:  bassa. 

IL  GIOCO:  Bisogna  inserire  una  scommessa  all’inizio  del  gioco;  e 

potremo  poi  lanciare  i  dadi  battendo  1  ;  ad  ogni  lancio 
si  otterrà  un  nuovo  totale,  che  aumenterà  poco  a  poco 
e  si  avvicinerà  a  2 1  ;  bisognerà  cercare  di  avvicinarsi  a 
21  senza  superarlo.  Quando  decideremo  di  fermarci, 
basterà  battere  0  per  lasciar  giocare  TATARI  che  cer¬ 
cherà  allora  di  ottenere  un  miglior  punteggio. 

Alla  fine  di  ogni  partita  sarà  visualizzato  la  vincita 
così  come  il  totale  delle  vincite  (o  delle  perdite). 

IL  PROGRAMMA:  Le  linee  80  e  90  realizzano  il  controllo  di  quello  che 
deve  giocare  (giocatore  o  ATARI). 

Il  sottoprogramma  (1000-1010)  lancia  i  dadi. 

Le  linee  110  e  120  calcolano  il  totale  fatto  dal  gioca¬ 
tore  e  lo  visualizzano. 

Il  totale  dell'ATARI  è  calcolato  alla  linea  190  e  visua¬ 
lizzato  alla  linea  200. 

La  linea  220  controlla  la  fine  del  gioco  per  TATARI. 
Le  linee  250-280  visualizzano  i  risultati  e  la  linea  290 
cerca  qual  è  il  vincitore. 

La  vincita  (o  la  perdita)  sarà  visualizzata  dalla  linea 
310  ed  il  totale  dalla  linea  340. 

La  linea  370  controlla  la  fine  della  partita. 

PER  GIOCARE:  Battere  RUN  per  iniziare  il  gioco. 

Alla  domanda  LA  TUA  PUNTATA,  inserire  la  scom¬ 
messa  iniziale,  seguita  da  RETURN,  e  battere  1  per 
lanciare  il  dado.  Il  primo  tiro  è  visualizzato  sotto  la 
forma  IL  TUO  TOTALE  RAGGIUNGE  ...  ;  si  dovrà  ri¬ 
battere  1  seguito  da  RETURN,  finché  si  desidera  ri¬ 
cominciare  a  tirare. 

Appena  finito,  si  battono  0  e  RETURN  per  lasciar 
giocare  TATARI  (che  ha  qui  il  ruolo  di  banco). 

La  vincita  (o  la  perdita,  se  c’è  il  segno  — )  apparirà  al¬ 
la  fine  del  gioco,  così  come  il  totale  delle  vincite  (o 
delle  perdite)  realizzate  dall’inizio. 

Se  si  desidera  interrompere  il  gioco,  si  dovrà  battere 
N  in  risposta  alla  domanda  CONTINUIAMO?  (S/N). 

ESTENSIONI  POSSIBILI:  Questo  gioco  sarà  evidentemente  più  interes¬ 
sante  se  è  fatto  in  tanti,  e  sarà  facile  modificare  il 
programma  di  conseguenza;  potremmo  anche  dise¬ 
gnare  il  dado  ,  o  meglio,  utilizzare  delle  carte,  il  che 
permetterà  allora  di  fare  il  vero  Blackjack. 
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10  REM  BLACK JACK 
20  DIM  R$< 1 > 

30  G=0 

40  GRAPHICS  0 
50  T=0 

60  PRINT  "  LA  TUA  PUNTATA  INPUT  M 
?w  PRINT 

80  PRINT  "Battere  1  per  tirare  -  0  Per  finire"; ' INPUT  R 
30  IF  R=0  THEN  140 
180  GOSUB  1008 
118  T=T+X 

120  PRINT  "Il  tao  totale  raasiunae  ";T 
130  GOTO  70 
140  PRINT  ">" 

150  PRINT  "  IL  BANCO  GIOCA" 

160  PRINT 
170  3=0 

180  GOSUB  1000 
190  S=S+X 

200  PRINT  "Il  banco  rasai una e  ";S 
210  FOR  1=1  TO  500 : NEXT  I 
220  IF  S>T  OR  S> 17  THEN  240 
238  GOTO  180 
240  PRINT  ">" 

250  PRINT  "Il  tuo  totale  <s'  di  ";T 
260  PRINT 

270  PRINT  "Quello  del  banco  e'  di  ";S 
280  PRINT 

238  IF  S> 2 1  OR  <3<T  AND  T<=21)É  THEN  310 
300  M— — M 

310  PRINT  "La  tua  vincita  e-'  di  ";M 
320  PRINT 
330  G=G+M 

340  PRINT  "La  tua  vincita  totale  arriva  a  ";G 
350  PRINT 

360  PRINT  "Continuiamo  <3/10  ";= INPUT  R$ 

370  IF  RT="N"  THEN  END 
380  GOTO  40 
1 000  X=  I NT < RND <1  >4:6+1) 

1010  RETURN 
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Pari  -  dispari 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  lancio  di  dadi. 

Difficoltà  del  gioco:  media. 

IL  GIOCO:  È  un  gioco  d’azzardo  per  uno  o  più  giocatori.  L’ATA- 

RI  lancia  simultaneamente  due  dadi  non  visibili  e  fa 
tre  domande:  qual  è  la  parità  del  totale,  qual  è  il  tota¬ 
le  ed  infine  quale  sia  il  valore  di  uno  dei  dadi. 

Si  può  proseguire  il  gioco  o  interromperlo  in  ogni 
momento. 


IL  PROGRAMMA:  I  dadi  sono  tirati  da  un  sottoprogramma  posizionato 
alle  linee  1000  e  1010. 

La  linea  70  tiene  il  conto  del  numero  di  partite  e  le 
linee  170,  250  e  280  contabilizzano  i  punti  segnati. 
La  parità  del  totale  è  determinata  dalle  linee  120  e 
130  (la  linea  130  paragona  con  la  risposta  del  gioca¬ 
tore). 

La  linea  400  e  le  seguenti  realizzano  il  messaggio  di 
fine  partita:  totale,  numero  di  punti,  numero  di  parti¬ 
te  giocate. 

La  linea  440  provoca  l’arresto  se  si  risponde  N  alla 
domanda  CONTINUIAMO?  (S/N) 

PER  GIOCARE:  Si  lancia  il  programma  con  RUN. 

Basta  in  seguito  rispondere  alle  diverse  domande  po¬ 
ste,  seguendo  scrupolosamente  le  indicazioni  date  e 
battendo  RETURN  dopo  ogni  risposta. 

Quando  si  finisce  una  partita,  si  ottiene  la  visualizza¬ 
zione  del  totale  attuale  ed  il  numero  di  partite  nella 
forma  di,  per  esempio,  6  punti  in  10  prove. 

Si  ottiene  allora  la  domanda  CONTINUIAMO?  (S/N)  e 
si  risponderà  N  seguito  da  RETURN  per  fermarsi. 

ESTENSIONI  POSSIBILI:  Se  si  desidera  giocare  in  tanti,  sarebbe  inte¬ 
ressante  predisporre  la  possibilità  di  scommettere  e 
di  aggiungere  una  gestione  del  punteggio  per  ciascu¬ 
no  dei  giocatori.  Potremmo  anche  prevedere  una  mi¬ 
glioria  nella  presentazione  (utilizzo  del  colore,  ecc.) 
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10  REM  PARI -DI SPARI 
20  DIM  R*<1> 

30  T=0  R=0 
40  GOSUB  1000 
50  A=X 

60  GOSUB  1000 
70  R=R+ 1 
80  S=A+X 
30  PRIMT  ">M 

100  PRIMI  “Totale  Pari  <0)  o  dispari  <1>  ‘ ‘ INPUT  N 
110  PRIMT 

120  P=S/2-INT<S/2) 

130  IF  M=P  OR  M-0. 5=P  THEM  160 
140  PRIMT  •"SBAGLIATO!" 

150  GOTO  180 

160  PRIMT  "ESATTO." 

170  T=T+1 
180  F'RINT 

130  PRIMT  "Qual  e '  il  totale  presunto» "i 1  INPUT  N 

200  IF  N=S  THEM  240 

218  PRIMT  < PRIMT  "PERSO!" 

228  FOR  1=1  TO  900'NEXT  I 
230  GOTO  400 
240  PRIMT 
250  T=T+2 

260  PRIMT  "BRAVO!  Fornisci  uno  dei  valori  > 1  INPUT  N 
270  IF  NOA  AMD  NOS-A  THEN  210 
280  T=T+3 
230  PRIMT 

300  PRIMT  "BRAVO! "‘GOTO  220 
400  PRINT  ">" 

410  PRINT  "Hai  "jT>"  Punti  in  "jRj"  prove." 

420  PRINT 

430  PRINT  "Continuiamo  <S/N>  "j  ‘INPUT  R$ 

440  IF  R*="N"  THEN  END 

450  GOTO  40 

1000  X* I NT < RND < 1 ) *6+ 1 > 

1010  RETURN 
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Indovina  un  numero 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  lancio  di  dadi. 

Difficoltà  del  gioco:  facile. 

IL  GIOCO:  È  un  gioco  d’azzardo  molto  semplice,  ma  molto  inte¬ 

ressante:  il  giocatore  introduce  la  sua  puntata  e 
scommette  su  un  numero,  da  1  a  6;  sono  allora  lan¬ 
ciati  tre  dadi;  se  il  numero  giocato  appare  due  volte 
raddoppia  la  sua  puntata;  se  appare  tre  volte,  la  tri¬ 
plica. 

IL  PROGRAMMA:  Il  lancio  dei  dadi  è  realizzato  da  un  sottoprogramma 
posizionato  alle  linee  1000  e  1010. 

La  visualizzazione  è  realizzata  dalle  linee  140  e  150. 
Le  linee  da  170  a  200  calcolano  il  guadagno  nelle  di¬ 
verse  configurazioni  possibili. 

La  totalizzazione  è  effettuata  dalla  linea  220  per  le 
vincite  e  dalla  linea  510  per  le  perdite. 

La  variabile  R$,  verificata  alla  linea  550,  determina  il 
proseguimento  eventuale  del  gioco. 


PER  GIOCARE:  Il  lancio  del  programma  con  RUN  fa  apparire  un  pri¬ 

mo  messaggio  LA  TUA  PUNTATA;  si  risponde  con  un 
numero  seguito  da  RETURN.  Si  ottiene  allora  un  se¬ 
condo  messaggio  FORNISCI  UN  NUMERO  DA  1  A  6; 
si  inserisce  un  numero  seguito  da  RETURN;  i  tre  da¬ 
di,  raffigurati  dalle  lettere  A,  B,  C  appaiono  allora, 
assieme  a  un  messaggio  indicante  la  vincita  o  la  per¬ 
dita. 

Poi  appare  un'indicazione  sul  vostro  totale  attuale 
appare,  con  la  domanda  CONTINUIAMO  (S/N)?;  bat¬ 
tere  S  per  continuare,  N  per  fermarsi  (seguito  da  RE¬ 
TURN). 

ESTENSIONI  POSSIBILI:  Potremmo  facilmente  introdurre  dei  controlli 
(puntata  minima,  colpo  proposto  da  1  a  6,  ecc.).  Po¬ 
tremmo  anche  disegnare  dei  dadi  con  una  grafica  più 
elaborata,  introdurre  la  possibilità  di  giocare  in  mol¬ 
ti,  o  anche  fare  partecipare  TATARI. 
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10  REM  INDOVINA  UN  NUMERO 
20  DIM  R$<1> 

•30  G®0 
40  FRI NT  ">“ 

50  PRINT  “La  tua  puntata  -INPUT  N 
60  PRINT 

70  PRINT  “Fornisci  un  numero  da  1  a  6  1 *  INPUT  D 
86  G0SU8  1080 
90  A=»X 

100  GOSUB  1008 
110  8=X 

120  GOSUB  1000 
130  C=X 

140  PRINT  ‘PRINT  ‘PRINT  “  A  B  C“ 

150  PRINT  i PRINT  "  ";A;“  ";B;“  “iC 

160  T=0 

170  IF  D=A  THEN  T=T+N 

180  IF  D=*B  THEN  T=T+N 

190  IF  D=C  THEN  T=T+H 

200  IF  T=0  THEN  500 

210  PRINT  ; PRINT  ‘PRINT  “Vinci  “;T;“." 

220  G=G+T 
230  GOTO  520 

580  PRINT  ‘PRINT  ‘PRINT  "PERSO! 

510  G=G-N 

520  PRINT  ‘PRINT  ‘PRINT  "Totale  vincite  ‘"iG;“." 

530  POSITION  Sj 23 

540  PRINT  "Continuiamo  <s/N)  ">  ? INPUT  R* 

550  IF  R*="N"  THEN  END 

560  GOTO  40 

1000  X=  I NT < RND <1  >4:6+1) 

1010  RETURN 
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Il  gioco  di  Wytthof 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  di  media  difficoltà. 

Categoria  del  gioco:  riflessione  (due  giocatori). 
Difficoltà  del  gioco:  media. 

Disponiamo  di  una  griglia  quadrata  di  10  *  10  caselle. 
Un  punto  appare,  al  di  fuori  della  diagonale  e  i  gioca¬ 
tori  lo  dovranno  spostare  a  turno,  seguendo  solamen¬ 
te  tre  direzioni:  destra,  diagonale  in  basso  a  destra, 
basso.  Il  primo  giocatore  che  arriva  alla  casella  (9,9) 
sarà  considerato  come  vincente,  o  perdente,  secondo 
la  convenzione  presa  all'inizio. 

Le  linee  30,  40  e  50  permettono  di  definire  una  posi¬ 
zione  di  partenza,  al  di  fuori  della  diagonale. 

La  linea  70  e  il  ciclo  I  (80-100)  disegnano  la  griglia. 
La  linea  120  stampa  la  posizione  del  punto  mobile. 

Il  test  di  fine  è  effettuato  alla  linea  130. 

Il  cambiamento  del  giocatore  è  assicurato  dalla  linea 
170. 

Le  direzioni  di  spostamento  disponibili,  1,  2  e  3,  sono 
decodificate  da  tre  sottoprogrammi  che  cominciano 
alle  linee  1000,  2000  e  3000. 

Battere  RUN  per  lanciare  l’esecuzione  del  program¬ 
ma.  Il  campo  di  gioco  appare,  così  come  la  posizione 
di  partenza. 

Poi  si  ottiene  il  messaggio  GIOCATORE  1  e  sotto  la 
domanda  DIREZIONE  (1,2,3),  alla  quale  si  risponde 
battendo  uno  di  questi  tre  numeri,  seguito  da  RE¬ 
TURN. 

Sarà  in  seguito  il  turno  del  giocatore  2. 

Il  gioco  termina  quando  uno  dei  giocatori  arriva  alla 
casella  (9,9). 


ESTENSIONI  POSSIBILI:  Possiamo  innanzitutto  migliorare  i  controlli 
(l’uscita  dal  terreno  non  è  proibita,  per  esempio),  poi 
la  visualizzazione  (grafica,  colori),  estendere  il  gioco 
a  vari  giocatori  con  un  campo  più  grande,  introdurre 
un  mostro  che  cercherà  di  catturare  uno  dei  giocato¬ 
ri,  predisporre  un  programma  che  permetta  all’ATA- 
RI  di  giocare,  ecc. 
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10  REM  IL  GIOCO  DI  WYTTHQF 
20  DIM  D$<1> 

30  X*3*INT<RND<l>*5>+5 
40  Y=INT<RND<1>*5> 

50  IF  3*Y+5=X  THEN  50 
60  GRAPHICS  0 

70  PRINT  "  012345678  9" 

80  FOR  1*0  TO  9 

90  PRIHT  ‘PRINT  I>“ . " 

100  NEXT  I 
110  H=1 

120  POSITION  X,2*Y+2‘PRINT 
130  IF  X=32  AND  Y-9  THEN  END 

148  POSITION  4 j 22 'PRINT  "Giocatore  "j Hi 'PRINT  "  -  Direzione  <1,2,3)  "j 'INPUT  D* 
150  D=VAL<D$) 

160  OH  D  G0SU8  1000,2000,3000 
170  H=2-ABS<H-1> 

180  GOTO  120 
1000  X=X+3 
1010  RETURN 
2000  GOSUB  1000 
3000  Y=Y+1 
3010  RETURN 
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Rimbalzi 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  gioco  di  abilità. 

Difficoltà  del  gioco:  media. 

IL  GIOCO:  Utilizza  l’idea  della  simulazione  di  un  biliardo. 

Alle  due  estremità  dello  schermo  si  trovano  la  palla 
ed  il  bersaglio:  una  serie  di  cifre  e  di  lettere,  in  alto 
sullo  schermo,  permettono  di  scegliere  il  posto  dove 
si  desidera  rimbalzare. 

La  palla  partirà  allora  verso  l’alto  (verso  il  basso  se 
si  introduce  il  segno  — ),  rimbalzerà,  ritornerà  even¬ 
tualmente  in  basso,  rimbalzerà  di  nuovo,  e  così  via  fi¬ 
no  a  raggiungere  la  linea  del  bersaglio;  se  si  è  suffi¬ 
cientemente  vicini  al  bersaglio  si  vince  ed  il  numero 
di  rimbalzi  sarà  allora  visualizzato. 

IL  PROGRAMMA:  La  linea  40  stampa  le  cifre  e  le  lettere  in  alto  sullo 
schermo. 

Le  linee  50  e  60  definiscono  le  posizioni  iniziali  della 
palla  e  del  bersaglio. 

Le  linee  70  e  80  effettuano  la  loro  stampa. 

Il  simbolo  corrispondente  alla  direzione  scelta  è  inse¬ 
rito  alla  linea  90. 

Il  ciclo  J  (120-160)  realizza  lo  spostamento  della  palla. 
La  linea  150  calcola  la  nuova  posizione. 

Il  cambiamento  di  direzione,  durante  lo  scontro  con 
un  bordo,  è  effettuato  dalla  linea  140,  per  rinvio  in 
una  parte  indipendente  del  programma,  situata  alle  li¬ 
nee  da  210  a  230. 

La  linea  170  effettua  la  stampa  della  fine  della  partita. 
Il  numero  di  rimbalzi  è  contato  dalla  linea  220. 

PER  GIOCARE:  Si  lancia  il  programma  con  RUN. 

Il  campo  appare,  così  come  le  posizioni  iniziali  della 
palla  e  del  bersaglio.  Si  sceglie  il  posto  dove  si  deside¬ 
ra  far  rimbalzare  la  palla  (da  1  a  Z),  e  lo  si  inserisce. 
La  traiettoria  è  allora  mostrata,  seguita,  se  lo  si  me¬ 
rita,  dal  messaggio  BRAVO;  X  RIMBALZI. 

Si  può  cominciare  un'altra  partita  battendo  un  tasto 
qualunque,  e  fermarsi  in  ogni  momento  battendo 
BREAK. 

ESTENSIONI  POSSIBILI:  Sarà  molto  interessante,  utilizzando  una  grafi¬ 
ca  più  fine,  disegnare  un  vero  biliardo,  col  suo  tappe¬ 
to  verde,  ed  indicare  con  un  segmento,  che  simboleg¬ 
gia  la  stecca,  che  si  sposta  intorno  alla  biglia. 
Potremmo  anche  aggiungere  delle  buche,  mettere  va¬ 
rie  biglie,  sonorizzare  i  rimbalzi,  o  gli  urti  con  altre 
palle,  contabilizzarle  per  fare  una  partita  con  vari 
giocatori,  ecc. 
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10  REM  RIMBALZI 
20  DIM  R$<1> 

38  GRAPHICS  0 

40  POS I T I OH  O , ©  * PR I NT  " 0 1 23456789ABCDEFGH I JKLMNGPQRSTUVWXYZ " 

50  Y- 1  NT  <  RHD  <l>*18+2) 

60  Y- I NT < RHD < 1 ) $ 1 8+2  > 

78  POSITION  0,X‘ PRINT  CHR$<1) 

80  POSITION  39, Y <PRINT  CHR*<4> 

90  POSITION  0, 22 : PRINT  "Il  tuo  colpo  ‘  "  -,  >  INPUT  R* 

100  S=0 
110  T=X 

120  FOR  J=1  TO  38 

130  T=T-X/<ASC<R»)-ASC<"0")-7*<R*>="A")> 

140  IF  T>21  OR  T<1  THEN  210 

145  IF  J=39  THEN  160 

150  POSITION  J,T‘ PRINT  CHRf<20> 

160  NEXT  J 

170  IF  ABS(T-Y) <2  THEN  POSITION  0,21 ‘PRINT  "BRAVO!  ";S>W  rimbalzi." 
180  POSITION  0,22‘PRINT  "Un'altra  partita  <S/N>  "j< INPUT  R$ 

190  IF  Rt- "N"  THEN  END 

200  RIJN 

210  X=-X 

220  S=S+1 

230  GOTO  160 


40  102  programmi  per  ATARI 


Jackpot 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  fortuna  (un  giocatore). 

Difficoltà  del  gioco:  facile. 

IL  GIOCO:  È  una  variante  semplificata  di  un  gioco  d’azzardo 

classico,  nel  quale  il  giocatore  deve  fare  una  scom¬ 
messa.  Se  ottiene  certe  combinazioni  di  simboli,  vin¬ 
ce  (più  o  meno,  secondo  la  sua  puntata  e  la  combina¬ 
zione  ottenuta). 

Qui,  i  simboli  sono  sostituiti  da  cifre,  e  il  fatto  di  ave¬ 
re  tre  cifre  identiche  permette  di  vincere.  Esiste  più 
di  una  combinazione  particolare,  che  permette  di 
avere  il  Jackpot. 

IL  PROGRAMMA:  Il  ciclo  I  (60-80)  permette  il  disegno  della  macchina, 
la  linea  90  visualizza  gli  spostamenti  (vuoti)  delle 
cifre. 

La  scommessa  sarà  inserita  alla  linea  100,  e  testata 
alla  linea  110:  se  si  inserisce  0  la  partita  è  terminata 
(partenza  verso  la  linea  2000). 

Le  linee  120,  140  e  160  permettono  il  lancio  delle  tre 
cifre,  richiamando  un  sottoprogramma  che  si  trova 
alla  linea  1000. 

Il  risultato  è  visualizzato  alla  linea  170,  poi  testato  al¬ 
la  linea  180  e  alla  linea  310,  se  si  vince. 

PER  GIOCARE:  Lanciare  il  programma  con  RUN;  alla  domanda  CA¬ 

PITALE  INIZIALE?,  si  risponde  inserendo  un  nume¬ 
ro  sufficientemente  alto,  dal  quale  saranno  dedotte  le 
vostre  puntate. 

Poi  si  batte  RETURN,  e  si  inserisce  una  prima  punta¬ 
ta  (differente  da  0),  seguita  da  RETURN. 

Le  tre  cifre  estratte  sono  allora  visualizzate  un  breve 
istante,  così  come  la  puntata  fatta,  ed  il  risultato  ot¬ 
tenuto  (vincita  o  perdita). 

Si  può  in  seguito  scommettere  di  nuovo,  fare  RE¬ 
TURN  e  così  via. 

Per  terminare,  basta  rispondere  0  alla  domanda  LA 
TUA  PUNTATA? 

Apparirà  allora  il  resto  del  vostro  capitale  iniziale. 

ESTENSIONI  POSSIBILI:  Potremmo  migliorare  seriamente  i  controlli, 
usare  i  colori  e  delle  possibilità  grafiche  più  elabora¬ 
te  per  simulare  meglio  un  vero  Jackpot. 
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1(3  REM  JACKPOT 
20  DIM  R*<1> 

30  PRINT  “Capitale  iniziale  •  INPUT  P 
40  GRAPHICS  0 
50  SETCOLOR  1/0.0 
60  POR  1=1  TO  3 

70  POSITIÙN  10. 1+4' FOR  N=1  TO  21 -PRINT  CHR*<160>i ‘NEXT  N 
80  NEXT  I 

90  POSITION  14,6‘PRINT  "  “'POSITION  19/6'PRINT  "  "'POSITION  24,6 1 PRINT 

100  POSITION  12,  U'PRINT  “U  tua  Puntata  •"/■INPUT  M 

110  IP  M=0  THEN  2000 

120  GOSU6  1000 

130  A=X 

140  G0SU6  1008 
150  B=X 

160  GOSUB  1000 

170  POSITION  15, 6 • PRINT  A'POSITION  20,6'PRINT  B'POSITION  25,6'PRINT  X 
180  IF  A=B  AND  A=X  THEN  300 
190  N=-M 

200  POSITION  8, 11 'PRINT  "Puntata  >“jMì"  -  Risultato  ‘“<N/“ 

210  POSITION  4, 22‘PRINT  "Battere  <RETURN>  Per  continuare  “/‘INPUT  R* 

220  P*P+N 
230  GOTO  40 
300  N=M*50 

310  IF  A=7  THEN  N=M*500 

320  GOTO  200 

1000  X=INT<RND<1>*9+1) 

1010  RETURN 
2000  PRINT  ">" 

2010  PRINT  "Hai  "jP > 

2820  PRINT  "  punti. "'PRINT  "A  presto!" 
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Roulette 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  di  media  difficoltà. 

Categoria  del  gioco:  fortuna  (vari  giocatori). 
Difficoltà  del  gioco:  facile. 

È  soprattutto  spettacolare  per  il  suo  aspetto  grafico: 
una  pallina,  raffigurata  da  un  quadrato  nero,  si  spo¬ 
sta  su  un  campo  di  gioco  composto  da  caselle  nume¬ 
rate  da  1  a  36,  così  come  le  tre  caselle  supplementari, 
la  00,  una  casella  P  (come  pari)  e  una  casella  D  (come 
dispari). 

La  pallina  percorre  almeno  una  volta  tutte  le  caselle, 
poi  si  ferma  al  secondo  giro;  si  può  in  seguito  rilan¬ 
ciarla  per  un’altra  partita. 

Il  ciclo  K  (50-100)  disegna  il  tavolo  di  gioco,  al  quale 
la  linea  110  aggiunge  i  tre  simboli  P,  00,  e  D. 

Il  ciclo  K  (120-230)  realizza  lo  spostamento  del  ciclo, 
l’arresto  è  controllato  dalla  linea  160  e  210. 

Il  sottoprogramma  300-310  realizza  una  leggera  at¬ 
tesa. 

La  linea  240  sceglie  la  posizione  di  arresto. 

La  linea  260  gestisce  i  tentativi  seguenti. 

È  da  notare  che  la  pallina  è  il  cursore  che  si  sposta. 

Basta  battere  RUN,  e  guardare. 

Una  volta  che  la  pallina  si  sia  fermata  basterà  batte¬ 
re  un  tasto  qualunque  (tranne  "N”)  per  rilanciare. 
Battere  N  per  uscire  dal  programma. 


ESTENSIONI  POSSIBILI:  Potremmo  cercare  di  avvicinarci  maggiormen¬ 
te  ad  una  vera  roulette,  in  diversi  modi:  disegnare 
meglio  il  tavolo,  introdurre  i  colori,  simulare  il  ral¬ 
lentamento  della  pallina,  introdurre  differenti  possi¬ 
bilità  di  scommessa,  e  assicurare  la  gestione  delle 
vincite  corrispondenti,  tenere  i  conti  di  vari  giocato¬ 
ri,  ed  annunciare  i  risultati  in  una  maniera  più  usua¬ 
le. 
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10  REM  ROULETTE 
20  DIM  R$< 1 ) 

30  GRAPHICS  0 
40  SETCOLOR  2 <12,2 
50  FOR  K=1  TO  4 
60  FOR  1*1  TO  3 
70  S*2*I 

80  POSITIQN  4*I,4*K'PRINT  S*<K-1 >+<S+18>#<K»2>+<S-l >*<K»3>+<S+1?>*<K*4> 

30  HEXT  I 
100  HEXT  K 

110  POSI TI OH  1,6 'PRINT  "P" 'POSITION  1,10 'PRINT  "00" 'POSITION  1,14 'PRINT  "D" 

120  FOR  K=1  TO  4 

130  FOR  1-1  TO  3+(K<4> 

140  IF  1*10  AND  K<4  THEN  POSITION  0,4*K+3' PRINT  "  M 'GOTO  160 
150  POSITION  4*1-1, 4*K+1'PRINT  "  “> 

160  X=X-1 

170  SOUND  0,53,10,4 
180  FOR  T*1  TO  38 'NEXT  T 
130  SOUND  0,0,0, 0 
200  GOSUEl  300 

210  IF  X=1  THEN  PRINT  CHR*<20> = GOTO  260 

220  NEXT  I 

230  NEXT  K 

240  X=INKRND<1>*38) 

250  GOTO  110 

260  POSITION  0,20 'PRINT  "Un'altra  prova  <S/N>  -INPUT  R* 

270  IF  R*="N“  THEN  END 
280  GOTO  40 

300  FOR  J=1  TO  100 -NEXT  J 
310  RETURN 
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Corridoi 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  di  media  difficoltà. 

Categoria  del  gioco:  riflessione. 

Difficoltà  del  gioco:  elevata. 

Fa  richiamo  a  delle  nozioni  di  logica  elementare.  Il 
giocatore  può  presentarsi  all’ingresso  sia  del  corri¬ 
doio  n.  1  che  del  n.  2.  In  questi  due  ingressi  sono 
piazzati  degli  sportelli  che  si  spostano  al  vostro  pas¬ 
saggio  e  vi  lasciano  passare,  una  volta  a  destra,  una 
volta  a  sinistra.  In  più  uno  sportello  analogo  è  stato 
messo  nel  corridoio  centrale;  potrete  prevedere  dove 
(uscita  A  o  B)  si  effettuerà  la  vostra  prossima  uscita? 

Le  linee  da  40  a  110  disegnano  i  corridoi  (e  i  tre  spor¬ 
telli). 

La  linea  140  aspetta  la  vostra  scelta  . 

La  decodifica  della  strada  è  fatta  dall’ATARI  utiliz¬ 
zando  tre  variabili  logiche  I,J.K,  che  rappresentano 
lo  stato  dei  tre  sportelli  (linee  da  180  a  320). 

Dopo  aver  battuto  RUN,  il  corridoio  è  disegnato  sullo 
schermo,  gli  sportelli  sono  visibili  e  bisognerà  batte¬ 
re  1  o  2  in  risposta  alla  domanda  deH'ATARI. 

Nella  versione  presentata  allora  immediatamente  vi¬ 
sualizzate  la  risposta  e  la  strada  seguita  dall'inizio 
del  gioco;  anche  le  uscite  corrispondenti  appaiono 
sullo  schermo.  Ciò  presenta  il  vantaggio  di  permette¬ 
re  a  vari  giocatori  di  esercitare  la  loro  sagacità  cer¬ 
cando  di  prevedere,  per  un  certo  ingresso,  ciò  che  ri¬ 
sponderà  TATARI. 


ESTENSIONI  POSSIBILI:  Sono  molto  numerose;  è  molto  facile  immagi¬ 
nare  un  corridoio  più  lungo  e  complesso,  con  altri  in¬ 
gressi  ed  altre  uscite,  e  altri  sportelli.  Possiamo  im¬ 
maginare  una  visualizzazione  grafica  dei  risultati  di¬ 
segnando,  per  un  breve  istante,  lo  stato  degli  sportel¬ 
li  dopo  la  risposta  del  giocatore.  Possiamo  anche  ag¬ 
giungere  un  test  delle  risposte  (gioco  in  tanti),  conta¬ 
bilizzare  i  punti  di  ogni  giocatore,  ecc. 

Nota  per  il  programma:  TATARI  dispone  di  caratteri 
grafici  disponibili  battendo  contemporaneamente 
CONTROL  e  uno  dei  tasti  alfabetici. 
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10  REM  CORRIDOI 

20  DIM  C*<1>,R*<37>,S$<1>,T*<37> 

38  GRAPHICS  0 

40  PRINT  "nnnnnnnnnnnnnnnnnnnnnn” 'REM  per  emù  lettera  Minuscola,,  battere  siault 
aneawente  il  tasto  <C0HTR0L> 

50  PRINT  'PRINT  "1  af  nnnnnnnnnnn  fi" -REM  vedere  40 

60  PRINT  ■'  fa -'REM  vedere  40 

70  PRINT  "nnnnnnnn  af  nnnnnM'REM  vedere  40 

30  PRINT  "  fa" 'REM  vedere  40 

90  PRINT  "2  af  nnnnnnnnnnn  8" 'REM  vedere  40 

100  PRINT  “  fa- 'REM  vedere  40 

110  PRINT  "nnnnnnnnnnnnnnnnnnnnnn" 'REM  vedere  40 

120  I=0'J=0'K=0 

130  . . . . 

140  POSITION  0,13'PRINT  “Entrata  1  o  2  •  “'P08ITI0N  17,13' INPUT  C* 

150  IF  C*=“"  OR  C*>»"3“  OR  LEN<C*)<>1  THEN  140 
160  R*<LEN<R$>  +  1><=C* 

170  PRINT  'PRINT  R* 

180  IF  C*»"!"  THEN  230 
190  J=  NOT  <J> 

200  IF  JO0  THEN  300 
210  S*="8“ 

220  GOTO  260 
230  1=  NOT  <I> 

240  IF  IO0  THEN  300 

C*="Q" 

260  T$<LEN<T*>+1>-S* 

270  POSITION  0,17' PRINT  "Uscito  in  "jS#'PRINT  ‘PRINT  T* 

280  IF  LEN<T*»36  THEN  RUN 
290  GOTO  140 
300  K-  NOT  <K> 

310  IF  KO0  THEN  210 
320  GOTO  250 
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Scacchiera 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  difficile. 

Categoria  del  gioco:  grafica. 

Difficoltà  del  gioco:  secondo  l’utilizzo. 

Il  programma  proposto  viene  in  appoggio  al  pro¬ 
gramma  Scacchi;  esso  dà,  infatti,  la  possibilità  di 
realizzare  una  visualizzazione  grafica  di  buona  quali¬ 
tà  per  i  giochi  che  utilizzano  una  scacchiera  di  8  ca¬ 
selle  (potremo  facilmente  estenderla  a  10*10).  È  sta¬ 
ta  prevista  una  locazione:  orizzontalmente  con  delle 
lettere  (da  A  ad  H)  e  verticalmente  con  dei  numeri  (da 

I  a  8). 

Le  linee  50  e  60  definiscono  due  variabili  A$  e  B$  che 
contengono  gli  elementi  del  disegno.  La  linea  70 
stampa  le  lettere  orizzontali. 

II  ciclo  K  (120-160)  disegna  una  casella. 

Il  ciclo  J  (110-170)  disegna  una  linea. 

Il  ciclo  I  (90-180)  disegna  le  linee  con  il  loro  numero. 

L’ordine  RUN  provoca  l’apparizione  della  scacchiera 
sullo  schermo. 

Per  utilizzare  il  programma,  converrà  tener  conto 
della  localizzazione  delle  caselle  utilizzabili  che  sono 
i  centri  dei  quadrati.  Le  caselle  sono  ottenute  in  lar¬ 
ghezza  da  una  tabulazione  del  tipo  3  *  J, J  variante  da 
1  a  8,  e  in  altezza  da  2  *  I  +  K 


ESTENSIONI  POSSIBILI:  Potremmo  usare  questo  programma  per  tutta 
una  serie  di  giochi  che  si  svolgano  su  una  scacchiera 
(scacchi,  dama,  il  lupo  e  gli  agnelli,  ecc.). 
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10  REM  SCACCHIERA 
20  PRINT  ">" 

30  SETCOLOR  1,9, 14'SETC0L0R  2,0,0 
40  DIM  A$<3),B*<3> 

50  A$=" 

60  6$="  "'REM  battere  questi  3  bianchi  in  caratteri  inversi 
70  PRINT  **  A  B  C  D  E  F  G  H" 

80  PRINT 

90  FOR  1=1  TO  8 

180  PRINT  I 

110  FOR  J=1  TO  8 

120  FOR  K=1  TO  2 

130  POSITION  3*J+1,2*I+K 

140  IF  INT<<I+JV2)=a+J>/2  THEN  PRINT  A$'GOTO  160 
150  PRINT  B$ 

160  NEXT  K 
170  NEXT  J 
180  NEXT  I 
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Il  gioco  della  fava 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  facile. 

Categoria  del  gioco:  riflessione  (due  giocatori). 
Difficoltà  del  gioco:  media. 

Presenta  una  certa  analogia  con  il  gioco  di  WYTT- 
HOF;  questa  versione  offre  però  4  possibilità  di  spo¬ 
stamento;  la  posizione  di  partenza  è  qui  fissata  in 
(0,0)  e  potrebbe  eventualmente  essere  modificata. 

Le  direzioni  di  spostamento  disponibili  sono:  destra, 
basso,  diagonale  in  basso  a  destra,  diagonale  in  basso 
a  sinistra. 

Si  gioca  con  la  regola:  il  primo  arrivato  in  (9,9)  ha 
perso. 

La  linea  40  ed  il  ciclo  I  (50-70)  disegnano  il  campo  di 
gioco. 

La  linea  110  realizza  il  test  di  fine  partita. 

La  linea  140  permette  di  eseguire  uno  dei  sottopro¬ 
grammi  di  spostamento. 

Le  linee  150  e  160  assicurano  il  cambiamento  di  gio¬ 
catore. 

Si  lancia  il  programma  con  RUN  ed  appare  il  campo 
di  gioco  ,  così  come  la  domanda  DIREZIONE  (1,  2,  3, 
4);  le  4  direzioni  proposte  corrispondono  agli  sposta¬ 
menti  seguenti: 


Il  giocatore  1  inserisce  il  suo  spostamento  e  batte 
RETURN. 

Il  movimento  corrispondente  è  realizzato,  poi  si  ot¬ 
tiene  il  messaggio  GIOCATORE  2  e  DIREZIONE. 

Il  giocatore  2  procede  nello  stesso  modo  e  così  via, 
fino  a  che  uno  dei  giocatori  arriva  in  (9,9)  nel  qual 
caso  il  gioco  termina. 

ESTENSIONI  POSSIBILI:  Si  può  immaginare  di  introdurre  all'inizio  del¬ 
la  partita  delle  caselle  con  delle  trappole  (ognuno 
cercherà  allora  di  fare  finire  l’altro  in  una  di  quelle 
caselle). 

Si  può  anche  giocare  con  vari  simboli,  se  possibile  di 
colore  diverso,  spostati  simultaneamente,  proporre 
dei  campi  di  gioco  triangolari,  di  dimensione  arbitra¬ 
ria,  ecc. 
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10  REM  IL  GIOCO  DELLA  FAVA 
20  GRAPHICS  0 
30  DIM  I*<1> 

40  PRINT  "  012  345678  9" 

50  FOR  1=1  TO  3 

60  PRINT  > PRINT  li" . " 

70  NEXT  I 
80  X*5=Y=1 
90  J=1 

100  POSITION  X/2#Y SPRINT  CHR*<20> 

110  IF  X=32  AND  Y=9  THEN  200 

120  POSITION  5/21  ‘PRINT  "Giocatore  "ìJì,"  -  Direzione<l/2/3/4>"i ■ INPUT  I* 
130  I=VAL<I*> 

140  OH  I  GOSUB  1000/2000/3080/4060 
150  J=J+1 

160  IF  J*3  THEN  90 
170  GOTO  100 

208  POSITION  0/21 ‘PRINT  "Il  «locato re  "jJj"  vince.....  "i 

210  END 

1000  Y-Y+l 

1010  RETURN 

2000  GOSUB  1000 

3000  X=X+3 

3010  RETURN 

4000  GOSUB  3080 

4010  Y-Y-l 

4020  RETURN 
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Gioco  dell'oca  casuale 


RIFERIMENTI:  Programmazione:  difficile. 

Categoria  del  gioco:  fortuna  (due  giocatori). 
Difficoltà  del  gioco:  bassa. 

IL  GIOCO:  Il  gioco  riprende  l’antichissima  idea  del  gioco  dell’o¬ 

ca,  ma  aggiungendo  la  possibilità  offerta  dal  calcola¬ 
tore  di  scegliere  a  caso  le  caselle  "con  problema”. 

La  regola  del  gioco  non  ha  molto  interesse,  visto  che 
i  giocatori  non  intervengono  in  nessun  momento  nel¬ 
lo  svolgimento  della  partita,  che  è  interamente  gesti¬ 
ta  daH’ATARI;  basta  schiacciare  uno  dei  tasti  dopo  il 
lancio  del  dado  e  guardare  cosa  succede. 

IL  PROGRAMMA:  La  linea  60  permette  di  chiamare  il  sottoprogramma 
1000-1100  che  visualizza  il  tavolo  da  gioco,  il  control¬ 
lo  della  posizione  dei  giocatori  e  la  visualizzazione  di 
quest’ultima.  Questa  visualizzazione  sarà  d’altronde 
rifatta  durante  la  partita,  per  tener  conto  dello  spo¬ 
stamento  realmente  effettuato  (che  non  è  necessaria¬ 
mente  quello  indicato  dal  dado). 

La  linea  60  si  occupa  del  cambiamento  del  giocatore 
e  la  linea  70  effettua  il  lancio  del  dado. 

La  linea  80  si  occupa  del  caso  in  cui  uno  dei  giocatori 
termina. 

La  linea  120  prende  un  numero  casuale  tra  0  e  3,  che 
servirà,  se  sarà  il  caso,  a  determinare  il  vero  sposta¬ 
mento  del  giocatore,  rinviando  in  uno  dei  sottopro¬ 
grammi  di  "fortuna”. 

Le  linee  1000  e  1010  fanno  avanzare  le  pedine  e  le  li¬ 
nee  1020-1080  ridisegnano  il  tavolo  da  gioco  ad  ogni 
turno. 

PER  GIOCARE:  Si  lancia  il  gioco  con  RUN.  Il  tavolo  da  gioco  è  allora 

disegnato,  poi  appare  il  messaggio  GIOCATORE  1: 
...  LA  TUA  MOSSA 

Si  dovrà  allora  battere  su  un  tasto  qualsiasi  perché  il 
colpo  del  giocatore  1  sia  preso  in  considerazione;  non 
preoccupatevi  per  il  tempo  di  reazione,  che  potrà 
sembrare  un  pò  lungo. 

Sarà  eseguito  lo  spostamento  indicato  dai  dadi  poi, 
dopo  qualche  istante,  sarà  fatto  eventualmente  un  se¬ 
condo  spostamento:  è  lo  spostamento  "FORTUNA”. 
Apparirà  allora  il  messaggio  GIOCATORE  2:  .  .  . 

Il  giocatore  2  batte  a  sua  volta  un  tasto  qualsiasi  e 
così  via... 

Il  giocatore  vincente  sarà  segnalato  da  un  messaggio 
BRAVO  in  fine  di  partita. 

Si  può  fermare  il  gioco  in  ogni  momento  battendo 
BREAK. 
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ESTENSIONI  POSSIBILI:  Si  potrebbe  ingrandire  il  tavolo  da  gioco,  in¬ 
trodurre  un  maggior  numero  di  messaggi  casuali, 
cambiare  la  loro  natura.  Potremmo  anche  scegliere 
le  caselle  "fortuna"  all’inizio  del  gioco,  aggiungere  dei 
messaggi  di  conseguenza,  ecc. 


10  REM  GIOCO  DELL 'OCR  CASUALE 
28  GRAPHICS  0 
30  DIM  R*<1> 

40  X=0'Y=0' J=1  '  I=X 
50  GOSUB  1000 
60  J=R6S<  J-l > 

70  I=INT<RND<1>*6+1> 

30  IF  X=35  OR  Y=35  THEN  P0SITI0N  0,20 ‘PRINT  "BRAVO ! " ' END 
90  P0SITI0N  6, 12:PRINT  "Giocatore  ";J+1j"  -  il  tuo  colpo  >">l 
100  PRINT  “  Battere  <RETURN>"j < INPUT  R* 

110  GOSUB  1000 
120  I=INT<RND<1>*4> 

130  F=INT<RND<1>*5+1> 

140  0N  F  GOSUB  206,300,400,500, 150 

150  GOTO  50 

200  1=1+3 

210  RETURN 

300  I=-I 

310  RETURN 

400  1=2*1 

410  RETURN 

506  IF  J=0  THEN  X=INT<RND<1>*30> «RETURN 
510  Y» I NT <RND<1 >*30 > 'RETURN 
1000  IF  J=0  THEN  X=X+ I *  <  X+ 1 <=35 > 

1010  Y=Y+J*I*<Y+I<=35> 

1026  POSITIOH  2,3'PRINT  " 01 23456789ABCDEFGH I JKLMNQPQRSTUVWXYZ " 

1630  FOR  1=0  TO  35 

1040  POSITION  2+1, 5 'PRINT  CHR*<151> 

1650  IF  I=X  THEN  POSITION  2+1, 5 'PRINT  "1"; 

1066  POSITION  2+1, 6 'PRINT  CHR*<152> 

1076  IF  I=Y  THEN  POSITION  2+1, 6 'PRINT  "2"; 

1080  NEXT  I 

1090  FOR  1=1  TO  400 'NEXT  I 
1100  RETURN 
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LIVELLO  2 


N. 

Nome  del  programma 

Tema  e  particolarità 

1 

Dado  truccato 

Da  utilizzare,  se  siete  disonesti,  in  altri 
programmi 

2 

Visioni 

Un  gioco  sulle  parole,  per  il  calcolatore 

3 

421 

Una  simulazione  semplificata  per  vari 
giocatori 

4 

L’elettricista  pazzo 

Logico  e  difficile,  per  1  solo  giocatore 

5 

La  corsa  al  20 

Gioco  di  riflessione,  per  2  giocatori  o  più 

6 

Musica 

Ripassate  le  vostre  nozioni  di  solfeggio, 
con  l’aiuto  del  calcolatore 

7 

Cavallina 

Un  gioco  di  riflessione,  per  2  giocatori 

8 

Lettere 

Un  gioco  sulle  parole,  abbastanza  sem¬ 
plice 

9 

Macchina  delle  parole 

Lasciate  creare  al  calcolatore  dei  vocabo¬ 
li  nuovi 

10 

Spia 

Ditegli  il  vostro  amore  in  codice 

11 

Attaccate  i  vagoni 

Per  i  più  giovani;  molto  visivo 

12 

Lancio  di  un  dado  truccato 

Ripassate  le  vostre  conoscenze  di  stati¬ 
stica 

13 

Gioco  con  le  carte 

Il  vostro  calcolatore  ha  più  di  un  trucco 
nel  sacco 

14 

Il  gioco  di  Marienbad 

Un  gioco  di  logica  per  2  giocatori,  in  una 
versione  estesa 

15 

L’indesiderato 

Siete  proprietario.  Arriverete  a  mettere 
le  mani  su  un  inquilino  indesiderato 

16 

Componi 

Fare  della  musica,  è  prima  di  tutto  scri¬ 
verla... 

17 

Giorno  della  settimana 

Approfittatene  per  fare  il  punto  sui  com¬ 
pleanni 

18 

Gioco  della  vita 

Un  grande  classico,  in  due  versioni:  ma¬ 
nuale  e  automatica 
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Dimensionamento  di  un  array 
Ricerca  di  un  elemento 
in  un  array  e  in  una  stringa 
L'istruzione  DATA 

L’ISTRUZIONE  DIM,  O  ISTRUZIONE 
DI  DIMENSIONAMENTO  DI  UN  ARRAY 

Abbiamo  già  incontrato  l’istruzione  DIM  per  limitare  la  lunghezza  di  una 
stringa  di  caratteri. 

Le  strutture  degli  array  vengono  correntemente  utilizzate  in  programma¬ 
zione,  si  rivelano  anzi  indispensabili  in  un  gran  numero  di  casi.  Se  volete, 
per  esempio,  inserire  le  vostre  entrate  e  uscite  per  tutti  i  giorni  del  mese 
(supporremo,  per  semplificare,  dei  mesi  di  trenta  giorni)  potreste  definire 
30  variabili  chiamate  PRIMO  GIORNO,  SECONDO  GIORNO,  ecc.  È  più  fa¬ 
cile  e  più  razionale  utilizzare  un  ciclo  I,  I  variante  da  1  a  30,  una  variabile 
R(I)  per  le  entrate  e  D(I)  per  le  uscite;  così  facendo,  avrete,  senza  saperlo, 
usato  una  struttura  di  array  a  una  dimensione;  questo  sarà  ammesso  dal- 
l’ATARI  solo  se  lo  avete  avvertito  prima  che  avreste  usato  un  tale  array, 
dando  un’istruzione  DIM  R(30)  per  le  entrate  e  DIM  D(30)  per  le  uscite. 

Potremmo  anche  immaginare  di  conservare  le  entrate  e  le  uscite  in  uno 
stesso  array,  dandogli  questa  volta  due  dimensioni:  per  esempio  DIM 
RD(30,2)  (o  DIM  RD(2,30)).  Così,  con  DIM  RD(30,2)  si  converrà  che  RD(I,1) 
rappresenti  le  entrate  e  RD(I,2)  le  uscite.  Sono  ugualmente  possibili  degli 
array  con  più  di  due  dimensioni. 

In  ATARI  è  obbligatorio  dimensionare  un  array  che  contiene  anche  meno 
di  10  elementi.  Attenzione  alla  creazione,  gli  elementi  di  un  array  non  con¬ 
tengono  obbligatoriamente  un  valore  nullo. 

LA  RICERCA  DI  UN  ELEMENTO  IN  UN  ARRAY:  R(I) 

Se  si  ha  un  array  a  una  dimensione,  numerico  o  definito  da  un’istruzione 
come  DIM  R(30),l’Iesimo  elemento  di  questo  array  è  localizzato  da  R(I);  sa¬ 
rà  allora  manipolato  esattamente  come  una  variabile  ordinaria  (assegna¬ 
zione,  calcolo,  tests,  ecc.). 

Tuttavia  non  è  possibile  immettere  un  valore  R(I)  direttamente  con  il  co¬ 
mando  input. 

LA  RICERCA  DI  UN  ELEMENTO  IN  UNA  STRINGA:  MID$ 

Per  estrarre  lT-esimo  elemento  della  stringa  alfanumerica  A$,  si  utilizzerà 
la  forma  A$(I,I). 

Così,  se  A$= "BUONGIORNO”,  A$(3,3)  darà  il  carattere  N;  inoltre  A$(3,6) 
darà  la  sottostringa  "ONG”. 
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IL  TRATTAMENTO  DI  DATI  MULTIPLI 
ISTRUZIONI  READ,  DATA,  RESTORE 

Per  riempire  facilmente  un  array  numerico  o  alfanumerico,  sarà  interes¬ 
sante  utilizzare  delle  linee  DATA  che  contengono  i  dati  iscritti  gli  uni  al 
seguito  degli  altri  separati  da  una  virgola. 

Così  si  potrà  scrivere: 

DATA  LEONE,  GIULIO,  Via  MARTIN .  .  . 

Questi  dati  possono  essere  letti  nei  cicli  FOR.  .  .NEXT,  tramite  l’istruzio¬ 
ne  READ.  Si  può  ricominciare  la  lettura  all’inizio  dei  DATA,  con  l’aiuto 
dell’istruzione  RESTORE. 

È  possibile  verificare  una  linea  di  DATA  particolare  con  l’aiuto  dell’istru¬ 
zione  RESTORE  XXX  dove  XXX  è  il  numero  del  passo  del  programma. 
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Dado  truccato 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  lancio  di  dadi. 

Difficoltà  del  gioco:  media. 

IL  GIOCO:  Si  vuole  cercare  di  fabbricare  un  dado  truccato  se¬ 

condo  la  propria  convenienza.  Il  metodo  proposto 
qui  consiste  nel  definire  all’inizio  una  probabilità  di 
realizzazione  per  ogni  tipo  di  lancio  (cioè  la  probabi¬ 
lità  di  ottenere  un  1,  un  2,  un  3,  ecc.  che  ognuna  di 
queste  probabilità  sia  compresa  tra  0  e  1,  e  che  la 
somma  di  tutte  le  probabilità  sia  un  numero  molto 
vicino  a  1). 

IL  PROGRAMMA:  Utilizza  il  generatore  casuale  dell’ATARI  supposto  di 
qualità  adeguata  (potremo  facilmente  usare  un  qua¬ 
lunque  altro  generatore  se  ce  ne  sarà  bisogno).  Il  ci¬ 
clo  I  (50-120)  si  occupa  dell'ingresso  di  ognuna  delle 
probabilità,  con  verifica  ad  ogni  ingresso  e  sul  totale 
(linea  90);  ogni  probabilità  è  conservata  in  una  varia¬ 
bile  indicizzata  E(I):  linea  70  del  programma. 

Il  lancio  del  dado  truccato  è  effettuato  con  l’aiuto  di 
un  altro  ciclo  I  (160-180),  la  linea  che  permette  il 
trucco  è  la  170.  Un  nuovo  lancio  potrà  essere  effet¬ 
tuato  battendo  un  RETURN  (linea  200). 

Le  linee  dalla  300  alla  380  costituiscono  un  sottopro¬ 
gramma  di  musica,  estraendo  valori  di  suoni  dalla 
stringa  A$. 

PER  GIOCARE:  Dopo  la  partenza  con  la  battuta  di  RUN,  si  ottiene  la 

domanda  PROBABILITÀ  DEL  DADO  1,  alla  quale  si 
dovrà  rispondere  con  un  numero  compreso  tra  0  e  1 . 
Converrà  ricordarsi  che  il  totale  di  tutte  le  probabili¬ 
tà  inserite  non  dovrà  in  alcun  caso  superare  1.1  (tol¬ 
leranza  di  0.1).  Dei  messaggi  di  errore  potranno  ap¬ 
parire  ed  il  programma  sarà  eventualmente  rilancia¬ 
to.  Quando  tutte  le  probabilità  saranno  state  definite 
sarà  automaticamente  effettuato  il  primo  lancio  e  ba¬ 
sterà  premere  RETURN  per  effettuare  i  lanci  succes¬ 
sivi.  Si  arresta  il  programma  battendo  BREAK. 

ESTENSIONI  POSSIBILI:  Ci  sarebbe  evidentemente  la  forte  tentazione 
di  utilizzare  subdolamente  questo  piccolo  program¬ 
ma  per  aumentare  le  vostre  possibilità  di  vittoria  in 
uno  dei  giochi  d’azzardo  che  usano  il  lancio  di  dadi. 
Si  potrebbe  allora  pensare  di  inserire  i  dati  che  defi¬ 
niscono  il  dado  truccato  in  una  variabile  A$,  ecc.  Po¬ 
tremmo  anche  immaginare  di  presentare  i  risultati 
corrispondenti  ad  una  serie  di  lanci  in  una  maniera 
spettacolare,  che  metta  il  trucco  in  evidenza... 
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10  REM  DADO  TRUCCATO 
15  DIM  R*K1>,VA*<3> 

20  GRAPHICS  0 
30  P=0 
40  DIM  E<6> 

50  POR  1=1  TO  6 

60  POSITION  0,3= PRINT  "Probabilità'  del  dado  "il; 
70  POSITI OH  27,3= INPUT  E=E<I>=E 
75  POSITION  0,3= PRINT  “ 

30  P=P+E< I ) 

90  IF  ECIX0  OR  E< I )>  1  OR  P>1.1  THEN  220 
100  POSITION  6*1-3, 6'PRIHT  "DADO  "il 
110  POSITION  6*1-3, 8=PRINT  E<I> 

120  NEXT  I 

130  IF  P<0. 9  THEN  SOUND  0,32, 10,4  =  GOSUB  400  =  SOUND 
140  FOR  1=1  TO  500= NEXT  I 
150  N= I NT  <  RND ( 1 ) *6+ 1 > 

160  FOR  1=1  TO  6 

170  IF  N=I  AND  RND<1»E<I>  THEN  150 
ISO  NEXT  I 

190  POSITION  9, 15=PRINT  "Risultato  del  lancio  <"jN 
200  PRINT  =PRINT  "Battere  <RETURN>  Per  lanciare  il 
210  GOTO  150 

220  POSITION  0,4= PRINT  "IMPOSSIBILE  =0<=P<=1" 

230  F -P-E  < I > 

240  FOR  J=1  TO  1500 -NEXT  J 
250  POSITION  0,4=PRINT  " 

260  GOTO  70 
300  FOR  1=0  TO  2 

320  Vft$=" 063040047"= REM  "  DOSOL  MI" 

330  N0= VAL  <  VA*  <1+3*1 , 3+3*1 ) > 

340  SOUND  0, NO, 10,4 
350  GOSUB  400 
360  NEXT  I 
370  SOUND  0,0, 0,0 
380  RETURN 

400  FOR  T=1  TO  40 'NEXT  T 
410  RETURN 


H 


0,0, 0,0= RUM 


i "  " i =  GOSUB  300 
dado"; 'INPUT  R$ 
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Visioni 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  facile. 

Categoria  del  gioco:  disegno. 

Difficoltà  del  gioco:  media. 

L’ ATARI  vi  permette,  per  la  prima  volta,  di  entrare 
nella  sua  intimità  lasciandovi  intrawedere  la  sua 
propria  rappresentazione  del  mondo!  Dovrete  infatti 
proporgli  delle  parole,  non  importa  quali,  e  lui  vi  ri¬ 
sponderà  proponendovi  una  raffigurazione  grafica  di 
ciò  che  rappresenta  quella  parola  per  lui.  Il  gioco  sa¬ 
rà  molto  più  divertente  se  lo  farete  in  molti:  potrete  a 
volte  avere  delle  sorprese. 

Le  linee  50-80  scelgono  in  modo  casuale  2  colori  di¬ 
versi  per  lo  sfondo  e  le  immagini. 

Un  ciclo  I  (90-170)  si  incarica  di  realizzare  i  disegni. 
La  linea  100  permette  di  trasformare  in  numero  ogni 
lettera  della  parola  inserita  all’inizio  (linea  40).  Que¬ 
sto  numero  sarà  in  seguito  portato  in  base  2  dal  ciclo 
J  (linee  110-150);  secondo  il  risultato  di  questa  tra¬ 
sformazione,  un  punto  sarà  stampato,  oppure  no  (li¬ 
nea  140). 

Si  inizia  l’esecuzione  del  programma  con  RUN,  il  che 
porta  all'apparizione  della  domanda  NOME  DEL  DI¬ 
SEGNO?  Si  risponde  inserendo  una  parola  qualun¬ 
que  che  sarà  trasformata  in  disegno  dall’ATARI  non 
appena  avremo  battuto  RETURN. 

Per  ricominciare  basterà  battere  un  tasto  qualunque, 
per  terminare  battere  BREAK. 


ESTENSIONI  POSSIBILI:  La  stessa  idea  può  essere  ripresa  introducen¬ 
do  degli  elementi  di  simmetria  nei  disegni,  aggiun¬ 
gendo  i  colori.  Possiamo  anche  immaginare  di  codifi¬ 
care  con  questo  metodo  un  certo  numero  di  disegni 
che  introdurremo  man  mano  nella  macchina,  e  potre¬ 
mo  allora  creare  un  gioco  nel  quale  TATARI  divente¬ 
rà  sempre  più  esperto.  Si  può  realizzare  anche  un 
gioco  a  due  giocatori  nel  quale  TATARI  vi  chiede  di 
trovare  la  parola  che  corrisponde  al  disegno,  ecc. 
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10  REM  VISIONI 
20  DIM  R*<80> 

30  GRAPHICS  0 

48  FRI  NT  "Nome  del  diseano  INPUT  R$ 

50  TEXTE=INT <RND< 1 >#16) ! SETC'OLOR  1,TEXTE,2#INT<RND<1>*8> 
60  F0ND=INT<RND<1>*16> 

?0  IF  R6S<FOND-TEXTE>  <1  THEN  60 
80  SETCOLOR  2, FONO, 6 
90  FOR  1=1  TO  LEN<R$> 

100  N=3*<ASC<R$<I> I>)>-340 
110  J=1 

120  S=N/2-INT<N/2> 

130  N=INT<N/2> 

140  IF  SO0  THEN  PQSITIGN  J+15, 1+5’PRINT  CHR$a68> 

150  J=J+1 

160  IF  J<10  THEN  120 

1?0  NEXT  I 

180  PRIHT  = FRI NT 

190  FRI NT  "Per  conti ma re  battere  <RETURN>"; • INPUT  R$ 

200  GOTO  30 


60  102  programmi  per  ATARI 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  lancio  di  dadi. 

Difficoltà  del  gioco:  media. 

IL  GIOCO:  Ogni  giocatore  dovrà,  a  turno,  lanciare  tre  dadi  e  in 

seguito  scegliere,  nei  due  colpi  successivi,  se  deside¬ 
ra  o  no  rilanciare  1,2  o  3  dadi.  Ottiene  allora  un  pun¬ 
teggio  corrispondente  al  numero  indicato  dai  dadi, 
secondo  le  regole  scelte,  ed  il  giocatore  successivo 
procede  nella  stessa  maniera. 

IL  PROGRAMMA:  Il  numero  di  giocatori  è  innanzitutto  inserito  alla  li¬ 
nea  30. 

La  linea  120  visualizza  il  numero  di  giocatori  e  il  nu¬ 
mero  di  tentativi  già  effettuati. 

Un  sottoprogramma  posizionato  alla  linea  4000,  uti¬ 
lizzato  tre  volte  nel  ciclo  J  (190-240),  realizza  il  lancio 
dei  dadi. 

I  rilanci  sono  eseguiti  dalle  linee  1000,  2000  e  3000. 
La  variabile  R$  genera  i  secondi  e  terzi  lanci.  La 
stampa  del  risultato  sarà  in  tutti  i  casi  realizzata  dal¬ 
le  linee  130-140. 

I  test  per  il  numero  di  tentativi  e  per  il  cambio  di  gio¬ 
catore  sono  effettuati  alle  linee  250  e  270. 

Si  osserverà  la  formula  alla  linea  1 80,  molto  utile  per 
fare  una  concatenazione. 

PER  GIOCARE:  Si  lancia  l'esecuzione  del  programma  con  RUN,  il 

che  porta  al  messaggio  NUMERO  DI  GIOCATORI?  Si 
inserisce  questo  numero,  e  si  batte  RETURN.  Lo 
schermo  si  cancella  e  visualizza:  GIOCATORE  N.  1. 
PROVA  A,  PARTITA  1 ,  così  come  il  risultato  realizza¬ 
to,  e  il  numero  dei  dadi  (A,  B,  C). 

Se  non  si  desidera  rifare  dei  lanci,  basta  battere  RE¬ 
TURN.  La  mano  passa  allora  al  giocatore  successivo. 
Per  effettuare  un  altro  lancio,  basta  battere  il  nome 
del  o  dei  dadi  da  rilanciare,  e  battere  RETURN:  per 
esempio,  per  ritirare  A  e  C  si  batterà  AC  seguito  da 
RETURN. 

I  giocatori  successivi  procederanno  nello  stesso  modo. 

ESTENSIONI  POSSIBILI:  La  più  evidente  consiste  nel  lasciare  la  gestio¬ 
ne  dei  risultati  ai  giocatori,  riferendosi  alle  regole  di 
vincita  usuali  del  gioco  421.  Potremmo  fare  apparire 
dopo  ogni  turno  una  tabella  con  la  ricapitolazione 
dei  risultati  dei  giocatori. 

Potremmo  anche  migliorare  la  visualizzazione  dei  da¬ 
di  (riferirsi  ai  vari  programmi  di  visualizzazione  dei 
dadi  presenti  nella  stessa  opera). 
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10  REM  421 

20  DIM  R«6>,X«1> 

30  PRINT  "Numero  di  ai  oc*  tori  >  INPUT  N 

40  P=1 
50  1  =  1 
60  K=0 
70  PRINT  ">" 

80  R*="flBC" 

30  GOTO  130 
100  K=K+1 

110  POSITION  17, SPRINT  “-";CHR$<180>;CHR<<178>iCHR*<17?>,- 
120  POSITION  6,4 ‘PRINT  "Giocatore  n.  "il;"  -  Prova  ";K;"  -  Partita  **; P 
130  POSITION  8, 7 i PRINT  fi ‘POSITION  18,7‘PRINT  BPOSITION  23,7‘PRINT  C 
140  POSITION  8, 3 ‘PRINT  "fi" ‘POSITION  18,3‘PRINT  "B"  POSITION  28,3‘PRINT  "C" 

150  R*»"" 'POSITION  0,14‘PRINT  " 

160  POSITION  0, 14 'PRINT  <'Dado<i>  da  rilanciare  <fiBC>  ■  ‘POSITION  30/ 14 ‘IN¬ 

PUT  R$ 

170  IF  R<=""  THEN  260 
180  R<<LEN<R<H1  >="DDD" 

130  FOR  J=1  TO  3 
20O  GOSUB  4000 
210  X<=R«J,  J> 

220  X=fiSC<X<H64 

230  ON  X  GOSUB  1000,2000,3000,4000 

240  NEXT  J 

250  IF  K<3  THEN  100 

260  1=1+1 

270  IF  I <=N  THEN  60 

280  P=P+1 

230  GOTO  50 

1000  fi=D 

1010  RETURN 

2000  B=D 

2010  RETURN 

3000  OD 

3010  RETURN 

4000  D=INT<RND<1>*6+1> 

4010  RETURN 
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L'elettricista  pazzo 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  difficile. 

Categoria  del  gioco:  solitario. 

Difficoltà  del  gioco:  elevata. 

Un  palazzo  con  10  finestre,  numerate  da  0  a  9,  appare 
sullo  schermo.  Il  giocatore  dovrà  ad  ogni  tentativo 
manovrare  uno  degli  interruttori,  indicando  il  suo 
numero  (da  0  a  9). 

In  teoria  la  finestra  corrispondente  dovrebbe  spe¬ 
gnersi,  ma  è  anche  possibile  che  un’altra  si  illumini 
(o  si  spenga).  Si  tratta,  naturalmente,  di  cercare  di  ot¬ 
tenere  lo  spegnimento  delle  10  finestre  col  minor  nu¬ 
mero  di  tentativi  possibile. 

Un  array  A,  alla  linea  30,  conterrà  lo  stato  (acceso  o 
spento)  delle  10  finestre. 

Il  ciclo  I  (60-80)  e  l’altro  ciclo  I  (100-150)  disegnano  il 
palazzo  nel  suo  stato  iniziale. 

La  linea  160  controlla  se  tutto  è  spento,  nel  qual  caso 
si  andrà  alla  linea  300  per  visualizzare  il  numero  di 
tentativi. 

La  linea  170  aspetta  l’indicazione  dell’interruttore 
utilizzato. 

Le  linee  da  180  a  280  definiscono  il  risultato  della 
manovra. 

RUN  provoca  l’apparizione  del  palazzo  con  tutte  le  fi¬ 
nestre  accese. 

Alla  domanda  INTERRUTTORE  NUMERO?,  si  ri¬ 
sponde  indicando  il  numero  dell’interruttore  da  usa¬ 
re,  seguito  da  RETURN. 

Il  risultato  della  manovra  è  allora  indicato  sullo 
schermo  (delle  finestre  si  accendono  o  si  spengono). 
Si  continua  così  fino  a  che  tutte  le  finestre  sono  spen¬ 
te  e  si  ottiene  allora  il  numero  di  tentativi  fatti. 


ESTENSIONI  POSSIBILI:  Potremmo  immaginare  una  grafica  molto  mi¬ 
gliore  con,  se  possibile,  i  colori.  Potremmo  anche  fa¬ 
re  un  gioco  con  due  giocatori,  aumentare  il  numero 
di  finestre,  modificare  la  routine  per  l’accensione  o 
lo  spegnimento... 
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10  REM  L'ELETTRICISTA  PAZZO 
20  M=0 

30  DIM  A< 10> ! FOR  1=1  TO  10>A<I>=0'MEXT  I 
40  GRAPHICS  0 

50  SETCOLGR  2,8, 2'SETCOLOR  1,3,6 
60  FOR  1=1  TO  7 

70  POSITIOH  2,1'FOR  J=1  TO  36'PRINT  CHR$<160); ‘HEXT  J 
88  HEXT  I 
30  T=0 

100  FOR  1=1  TO  10 
110  T=T+AU) 

120  POSITIOH  2*1+8, 3 'PRIHT  “*" 

130  IF  0< I >=0  THEM  POSITIOH  2*1+8, 3'PRIMT  "  » 

140  POSITIOH  2*1+8, 6'PRIMT  1-1 
150  HEXT  I 

160  IF  T=10  THEM  300 

170  POSITIOH  0,14  ' PRIHT  "Interruttore  numero' ";= IMPUT  M 
180  M=M+ 1 
130  M=M+ 1 

200  IF  00-0  =  1  THEH  280 
210  A  00  =  1 

220  R=RMD<  1  >+H-‘RHD<  1  >-M  •  R=<SIM<RVCOS<R>  >-SIH<RMD<  1  )/'H)+336*SIH<8*M) 
230  H= I MT < 1 0* <  R- 1 MT  <  R  > ) > 

240  IF  M=0  THEH  H=IHT<RND< 1 > * 10+ 1 > 

250  IF  000=1  THEH  280 

260  A<H>=1 

270  GOTO  30 

280  0  00=0 

290  GOTO  220 

300  PRIHT  'PRIHT  "Trovato  in  ";M; "  prove." 
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La  corsa  al  20 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  facile. 

Categoria  del  gioco:  logica  (due  o  più  giocatori). 
Difficoltà  del  gioco:  media. 

È  possibile  immaginare  per  questo  gioco  varie  rego¬ 
le;  abbiamo  preso  qui  solo  la  regola  usuale  per  due 
giocatori,  che  ne  fa  un  gioco  simile  al  gioco  dei  fiam¬ 
miferi  o  al  gioco  di  spostamento:  4  mucchi  di  20  stel¬ 
le  appariranno  all’inizio  della  partita  ed  ogni  giocato¬ 
re  può  prendere  tante  stelle  quante  ne  desidera,  ma 
in  un  solo  mucchio  per  volta.  Quello  che  prende  l'ul¬ 
tima  stella  è  considerato  come  perdente. 

Il  ciclo  I  (30-50)  disegna  4  file  di  20  stelle. 

La  variabile  F,  dimensionata  alla  linea  70,  servirà  a 
registrare  il  numero  di  stelle  prese  in  ogni  fila. 

La  variabile  T  conterrà  il  numero  totale  di  stelle  pre¬ 
se  (linea  60). 

La  linea  120  controlla  che  ci  siano  sufficienti  stelle 
sulla  linea  indicata. 

Il  ciclo  1(150-190)  e  il  ciclo  J  (160-180)  levano  le  stelle; 
la  linea  220  testa  la  fine  della  partita. 

Lanciare  il  programma  con  RUN;  si  visualizzano  il 
tavolo  da  gioco  e  i  messaggi  GIOCATORE  1  e  LINEA, 
poi  CASELLE.  Si  risponde  inserendo  un  numero  di  li¬ 
nea  (tra  1  e  4)  seguito  da  RETURN,  ed  il  numero  di 
stelle  da  levare  seguito  da  RETURN.  Le  stelle  sono 
allora  eliminate,  e  toccherà  al  secondo  giocatore.  La 
partita  termina,  quando  l’ultima  lettera  è  stata  tolta, 
con  la  visualizzazione  del  giocatore  vincente. 


ESTENSIONI  POSSIBILI:  Oltre  ad  una  miglioria  della  qualità  grafica  e 
dei  controlli,  numerose  varianti  sono  ipotizzabili  mo¬ 
dificando  se  necessario  le  regole  di  partenza:  possia¬ 
mo  autorizzare  la  presa  solo  di  un  numero  dispari  di 
stelle,  o  alternare  pari  e  dispari,  oppure  prendere  a 
caso  il  numero  di  stelle  da  levare,  o  ancora  giocare  in 
tanti... 
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10  REM  LA  CORSA  AL  28 
20  GRAPHICS  0 
30  FOR  1=1  TO  4 

40  POSITION  0,2*1  SPRINT  li”  ******************** " 
50  NEXT  I 
60  T=0 

70  DIM  F<4> 'FOR  1=0  TO  4'F<I>=0‘NEXT  I 
80  B=1 

•30  POSITION  0, 12 : PRINT  "Giocatore  '">B 

100  PRINT  : PRINT  "Linea  *  1  INPUT  L 

110  PRINT  :PRINT  "Caselle  ‘"j 'INPUT  C 

120  IF  C+F<L»20  THEN  90 

130  F<L>=F<L)+C 

140  T=T+C 

150  FOR  1=1  TO  4 

160  FOR  J=F< I )-C  TO  F<I) 

170  POSITION  24-J, 2*1= PRINT  "  " 

188  NEXT  J 
190  NEXT  I 
200  B=B+1 

210  IF  B=3  THEN  B=1 
220  IF  T <80  THEN  90 
230  PRINT  "Il  giocatore  "iBi"  vince." 

240  FOR  1=1  TO  11 

250  SOUND  0,64,10,<I/2=INT<I/2))*4 
260  FOR  T=1  TO  40  » NEXT  T 
270  NEXT  I 
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Musica 


RIFERIMENTI:  Programmazione:  media. 

Categoria  del  gioco:  gioco  educativo. 

Difficoltà  del  gioco:  media. 

IL  GIOCO:  Si  presenta  come  un  esercizio  di  insegnamento  del 

solfeggio:  l’apparecchio  annuncia  una  nota  (in  chiave 
di  sol),  seguita  dal  messaggio  GRAVE  o  ACUTA,  se¬ 
condo  la  sua  posizione  sullo  spartito.  Si  dovrà  ri¬ 
spondere  indicando  su  quale  linea  la  nota  apparirà. 
La  nota  è  allora  disegnata  sullo  spartito,  seguita  da 
un  messaggio  BRAVO  o  PERSO,  secondo  che  si  abbia 
vinto  o  meno. 

IL  PROGRAMMA:  Il  ciclo  I  (50-70)  disegna  lo  spartito.  Un  secondo  ciclo 

I  (80-120)  visualizza  i  numeri  di  linea. 

La  linea  130  definisce  il  nome  delle  note,  e  la  linea 
140  realizza  la  presa  casuale  di  una  nota. 

II  nome  della  nota  è  calcolato  alla  linea  150  ed  è  vi¬ 
sualizzato  dalla  linea  160,  seguito  dal  messaggio 
GRAVE  o  ACUTA,  secondo  il  caso. 

La  risposta  sarà  inserita  alla  linea  190. 

La  linea  200  si  occupa  della  decodifica  della  risposta. 
La  linea  210  visualizza  la  nota. 

Le  linee  230  e  240  guardano  se  si  è  vinto  o  perso  e 
visualizzano  il  messaggio  corrispondente. 

La  linea  250  permette  di  fare  un  nuovo  tentativo. 

PER  GIOCARE:  Si  lancia  il  programma  con  RUN. 

Si  ottiene  allora  l’apparizione  dello  spartito,  così  co¬ 
me  il  nome  della  nota  da  posizionare  e  la  domanda 
NUMERO  DI  LINEA. 

Si  risponde  dando  un  numero  di  linea  (da  1  a  E)  se¬ 
guito  da  RETURN. 

La  nota  è  allora  disegnata  e  il  messaggio  BRAVO  o 
PERSO  appare,  in  questo  caso,  sullo  schermo. 

Si  deve  battere  RETURN  per  continuare,  e  fermarsi 
battendo  BREAK. 

ESTENSIONI  POSSIBILI:  Possiamo  estendere  ad  un'altra  chiave,  che 
non  sia  la  chiave  di  sol,  si  può  introdurre  il  colore,  i 
suoni,  ecc. 
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10  REM  MUSICA 
20  DIM  N$<21),L$a> 

30  SETCOLOR  1,5,2‘SETCOLOR  2/12,6 
40  PRINT  ">" 

50  POR  1=1  TO  5 

60  PQSITION  2, 211+4  ‘FOR  J=1  TO  35  ; PRINT  CHR$<18), >NEXT  J 

70  NEXT  I 

80  FOR  1=1  TO  14 

30  PQSITION  0,1+2 

100  IF  I <=9  THEN  PRINT  I 

110  IF  I>9  THEN  PRINT  CHR*<I+55> 

120  NEXT  I 

130  N*="SI  LA  SOL  FA  MI  RE  DO  " 

140  X=INT<RND< 1>*14+1 > 

150  T=X- 1 - 7* I NT  <  <  X- 1 >  ^7  > 

160  POSITION  0/ 18 : PRINT  "Nota  "jN$<3*T+l,3*T+3>; 

170  IF  X<=7  THEN  PRINT  "  acuta." 

180  IF  X>7  THEN  PRINT  “  ara ve." 

130  POSITION  0/'26: PRINT  "Nuwero  di  linea  ■" >  > INPUT  L* 

200  L=<A3C<L*>-48>*<L*<“ 1 " >+<RSC<L$>-55>*(L*>=“A" ) 

210  POSITION  14,  X  ‘ PRINT  CHR$<2> : POSITION  14, X+l ‘PRINT  CHR*<2:> ‘PQSITION  14,X+2‘PR 
INT  CHR*  < 36  > 

220  POSITION  25,20 

230  IF  L=X  THEN  PRINT  "BRAVO." 

240  IF  LOX  THEN  PRINT  "PERSO!" 

250  PRINT  ‘PRINT  "Battere  <RETURN>  per  continuare  ", ! INPUT  L* 

260  GOTO  40 
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Cavallina 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  facile. 

Categoria  del  gioco:  riflessione  (due  giocatori). 
Difficoltà  del  gioco:  bassa. 

Anche  se  l’idea  è  in  sé  molto  semplice,  non  sarà  ob¬ 
bligatoriamente  evidente  scoprire  una  strategia  ade¬ 
guata.  Disponiamo  di  tre  più  tre  pecore,  raffigurate 
con  dei  simboli  grafici,  che  occupano  8  caselle;  le  pe¬ 
core  possono  spostarsi  da  una  casella  ad  un'altra  li¬ 
bera.  Varie  regole  potranno  intervenire,  secondo  la 
vostra  stima  personale  su  questa  o  quella:  o  si  co¬ 
stringono  le  pecore  ad  andare  sulla  prima  casella  di¬ 
sponibile,  saltando  eventualmente  sopra  le  pecore  av¬ 
versarie,  oppure  si  lascia  loro  scegliere  la  casella  di 
arrivo,  il  che  può  rendere  le  partite  interminabili;  a 
voi  la  scelta. 

Il  ciclo  I  (50-80)  inizializza  un  array  A(I),  che  contiene 
le  posizioni  delle  pecore.  Il  ciclo  I  (100-150)  disegna  il 
campo  di  gioco  e  le  pecore. 

Le  linee  170  e  180  si  occupano  del  testo  e  degli  in¬ 
gressi. 

La  linea  190  controlla  la  validità  del  colpo.  Il  cambio 
giocatore  è  realizzato  alla  linea  220. 

Si  comincia  l’esecuzione  del  programma  con  RUN.  Si 
ottiene  allora  il  messaggio  GIOCATORE  1,  che  indica 
il  numero  del  giocatore,  seguito  dalla  domanda  INI¬ 
ZIO,  FINE? 

Si  risponde  indicando  il  numero  della  pecora  da  spo¬ 
stare  seguito  da  RETURN,  poi  il  numero  della  casella 
di  arrivo,  seguito  da  RETURN. 

È  allora  realizzato  lo  spostamento;  poi  il  secondo  gio¬ 
catore  procede  nello  stesso  modo.  Il  vincitore  è  in 
teoria  quello  che  riesce  a  posizionare  le  sue  tre  peco¬ 
re  allineate  sulle  posizioni  inizialmente  occupate  dal¬ 
l'avversario. 


ESTENSIONI  POSSIBILI:  Si  comincerà  con  1’aggiungere  un  controllo 
del  giocatore  vincente. 

Si  può  anche  migliorare  la  presentazione  disegnando 
delle  vere  pecore,  rendere  il  gioco  più  attraente  nu¬ 
merandole  e  imponendo  un  certo  ordine  all’arrivo. 
Infine  potremmo  creare  una  strategia  per  il  calcola¬ 
tore,  fissando  le  regole. 
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18  REM  CAVALLINA 
20  GRAPHICS  0 
30  DIM  A<8> 

40  Aa>=0'B<8>=0 
50  FOR  1=1  TO  3 
68  A< 1+1 >=1 
78  A<I+4)=-l 
88  NEXT  I 
80  H=1 

108  FOR  1=1  TO  8 

110  POSITIOH  4*1,8' PRINT  I 

120  POSITIOH  44:1-1  , 6 1  PRINT  " 

130  IF  B<I>=1  THEN  POSITION  4*1-1 ,6 =PRINT  CHR* <26> iCHR$<21 ) ;CHR*< 10) 

140  IF  A<  I  )--l  THEN  POSITION  4*1-1, 6‘PRINT  CHR*<.8>  ;CHR*<21  > ; CHRS03) 

150  NEXT  I 
168  J=1+<H=-1  ') 

178  POSITION  8,13'PRINT  "Giocatore  "i J 

180  PRINT  'PRINT  “Inizio  ,  Fine  '  ” ,  'POSITIOH  18, 15' INPUT  D,F 

188  IF  A<D)OH  OR  A<F><>0  THEN  170 

208  A<D>=8 

210  A<F)=H 

220  H=-H 

230  GOTO  108 
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Lettere 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  riflessione  (due  giocatori). 
Difficoltà  del  gioco:  media. 

IL  GIOCO:  È  ispirato  da  un  gioco  televisivo  molto  noto  in  Fran¬ 

cia.  L’ATARI  sceglie  a  caso  un  certo  numero  di  sim¬ 
boli  (vocali  e  consonanti)  nell’alfabeto  e  ognuno  dei 
giocatori  dovrà  indicare  la  lunghezza  della  parola 
che  è  riuscito  ad  ottenere  (l’apparecchio  non  verifi¬ 
cherà  se  la  parola  è  corretta!). 

Il  punteggio  totale  di  ogni  giocatore  è  visualizzato  in 
seguito. 

IL  PROGRAMMA:  Il  ciclo  I  (100-130)  sceglie  nell’alfabeto  tra  7  e  12  lette¬ 
re,  in  funzione  della  variabile  casuale  L,  presa  alla  li¬ 
nea  70.  Per  evitare  di  avere  troppe  consonanti,  si  uti¬ 
lizza  in  linea  110  una  piccola  astuzia,  che  consiste  nel 
rifare  a  caso  una  presa  nell’array  A$,  contenente  del¬ 
le  vocali  (se  ne  può  avere  più  o  meno  utilizzando  del¬ 
le  altre  RND). 

Il  ciclo  140-190  chiede  ad  ognuno  dei  due  giocatori  la 
lunghezza  della  loro  parola. 

Le  linee  200  e  210  paragonano  i  risultati  e  totalizzano 
il  punteggio  di  ogni  giocatore,  visualizzato  alla  linea 
220. 

PER  GIOCARE:  Si  lancia  l'esecuzione  del  gioco  con  RUN. 

Appaiono  le  lettere,  poi  la  domanda  GIOCATORE  1 
LUNGHEZZA?  alla  quale  il  primo  giocatore  risponde 
dando  la  lunghezza  della  parola  che  ha  ottenuto  (la 
validità  della  parola  dovrà  essere  tuttavia  controllata 
dall'altro  giocatore);  poi  il  giocatore  2  farà  altrettan¬ 
to  ed  il  punteggio  di  ogni  giocatore  sarà  visualizzato. 
Per  continuare  la  partita,  basterà  battere  RETURN. 
Si  dovrà  battere  BREAK  per  finire. 

ESTENSIONI  POSSIBILI:  Si  potrebbe  naturalmente  pensare  di  introdur¬ 
re  una  temporizzazione  prima  di  chiedere  le  risposte 
ai  giocatori. 

Si  potrebbe  anche  introdurre  non  la  lunghezza  della 
parola,  ma  la  parola  stessa,  l’avversario  dovrà  allora 
rispondere  alla  domanda  CORRETTA  O  NO?  Si  po¬ 
trebbe  anche  estendere  il  gioco  a  più  di  due  giocato¬ 
ri.  E  perché  non  cercare  di  definire  un  gioco  contro 
TATARI,  nel  quale  sarà  stata  inserita  prima  una  lista 
abbastanza  lunga  di  parole,  di  cui  visualizzerebbe  le 
lettere  disordinatamente,  con  eventualmente  qualche 
lettera  di  complemento  scelta  a  caso. 
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10  REM  LETTERE 
20  DIM  A*<7>,R$<1> 

30  S=0‘J=0 
40  GRAPHICS  2 
50  SETCOLGR  0,10,2 
60  PRINT  ">“ 

70  L= I NT  <  RND  < 1 ) *6+7  > 

80  fi$=“AEIOUEfi" 

90  POSITIOH  0,3 >PRINT  *6 j "LETTERE' “ 

100  FOR  1*1  TO  L 

110  POSI TI ON  7+1 ,3: PRINT  46 J  CHR*< INT<RND< 1 > *26+65 >  > 

120  IF  RNDC1X0.4  THEN  POSITION  7+I,3'R=INT<RND(l>*7+l> 'PRINT  46;fl*<R,R> 
130  NEXT  I 
140  I=»l 

150  PRINT  “  Giocatore  “ >1) 'PRINT  "  -  Lunehezza  INPUT  L 
170  IF  1*1  THEN  P=L 
180  1=1+1 

190  IF  I<3  THEN  150 
200  S=S+P*<P>L> 

210  J=J+L*<L>P> 

220  PRINT  “  Punti  -  Giocatore  1  '“jS>“  -Giocatore  2  '“;J 
230  PRINT  "  Battere  <RETURN>  Per  continuare" >  < INPUT  R* 

240  GOTO  40 
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Macchina  delle  parole 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  facile. 

Categoria  del  gioco:  gioco  d’azzardo  (sulle  parole). 
Difficoltà  del  gioco:  nessuna. 

Questo  cortissimo  programma  permette,  all’ATARI, 
di  dimostrare  le  sue  capacità  di  manipolazione  di 
stringhe  di  caratteri:  si  parte  semplicemente  da  un 
prefisso  e  da  un  suffisso  di  origine  greca,  che  assem¬ 
bleremo  a  caso,  cadremo  naturalmente  ogni  tanto  su 
delle  parole  assurde  o  anche  leggermente  equivoche. 
Una  nuova  parola  è  confezionata  ad  ogni  tentativo, 
ma  è  possibile  ottenere  varie  volte  la  stessa  parola. 

Due  variabili  A$  e  R$  sono  dimensionate  alle  linee  30 
e  40:  una  conterrà  i  prefissi,  poi  i  suffissi;  l’altra  la 
parola  composta.  Il  ciclo  J  legge  la  linea  DATA  1000 
riguardante  i  prefissi,  poi  la  linea  DATA  2000  per  i 
suffissi.  La  linea  80  effettua  la  scelta  di  una  fila  a  ca¬ 
so.  Nei  DATA  la  parola  ottenuta  alla  linea  110  è  vi¬ 
sualizzata  dalla  linea  130,  poi  si  ricomincia  (linea 
140). 

Lanciare  l’esecuzione  del  programma  con  RUN.  Una 
prima  parola  sarà  visualizzata  immediatamente, 
poi  una  nuova  parola  apparirà  al  seguito  della  prece¬ 
dente. 

Battere  BREAK  per  uscire  dal  programma. 


ESTENSIONI  POSSIBILI:  Si  potrà  facilmente  aumentare  la  lista  delle 
parole  disponibili. 

Potremmo  anche  utilizzare  un  processo  analogo  per 
fare  creare  delle  frasi  al  calcolatore,  fargli  inventare 
delle  poesie,  ecc.  Potremmo  anche  trasformare  il 
programma  iniziale  in  un  gioco  di  società  che  consi¬ 
sterebbe,  per  esempio,  nel  ricevere  delle  scommesse 
sulla  prossima  parola  che  apparirà.  E  affidare,  even¬ 
tualmente,  la  gestione  delle  scommesse  all’ATARI... 
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10  REM  MACCHINA  DELUE  PAROLE 
20  GRAPHICS  6 
38  DIM  A$(6) 

40  Diti  R$<12> 

50  R$="" 

60  FOR  J=1  TO  2 

70  RESTORE  10004.J 

80  FOR  R=1  TO  RND<  0*15+1 

80  READ  Ht 

100  NEXT  R 

110  R*<LEN<R$>+1>=R* 

120  HEXT  J 
130  FRI NT  R$ 

140  GOTO  50 

10O0  DATA  ANDRO , COSMO  , M I CRO  «ELIO/ SESSO  , STEREO  , PALEO , MAGRO  ,  I DRO  , STENO  ,  PATO  , OLEO  , M 
ITO, OMEO, OTTO 

2080  DATA  GRATE , F I LO , FOBO , TROPO , GIMMO, MANE , NAUTA , FAGO , FUGO , PATO , CARD I 0 , DERMA , SCO 
PIO, VORO, FONO 
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Spia 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  facile. 

Categoria  del  gioco:  gioco  di  riflessione. 

Difficoltà  del  gioco:  bassa. 

Il  programma  può  servire  simultaneamente  da  codi¬ 
fica  e  decodifica  di  messaggi  segreti,  seguendo  un 
metodo  molto  facile  da  mettere  in  opera  su  questo  ti¬ 
po  di  calcolatore. 

Un  piccolo  generatore  casuale  situato  alla  fine  del 
programma  è  utilizzato  per  modificare  in  maniera 
arbitraria  ogni  lettera  del  messaggio;  si  dovrà  fare 
attenzione  ad  utilizzare  sempre  lo  stesso  numero  (nu¬ 
cleo)  per  cominciare  la  codifica  o  la  decodifica  di  due 
messaggi  identici. 

Il  nucleo  iniziale  (che  sarà  un  intero  qualunque)  è  in¬ 
serito  alla  linea  40;  il  messaggio  è  inserito  alla  linea 
60. 

La  linea  70  permette  di  scegliere  tra  le  opzioni  di  co¬ 
difica  e  decodifica. 

Il  ciclo  I  (90-160)  è  utilizzato  sia  per  effettuare  la  co¬ 
difica,  che  la  decodifica. 

La  linea  110  chiama  il  generatore  casuale. 

La  linea  120  realizza  la  trasposizione  delle  lettere. 

Le  linee  130  e  140  verificano  che  si  resti  nei  limiti  au¬ 
torizzati. 

I  risultati  saranno  stampati  dalla  linea  170. 

Le  linee  da  1000  a  1030  contengono  il  generatore. 

Lanciare  il  programma  con  RUN. 

Inserire  in  seguito  un  intero  N  che  servirà  da  nucleo 
per  il  generatore  (bisognerà  ricordarselo  per  la  deco¬ 
difica). 

Poi  battere  il  messaggio,  seguito  da  RETURN. 
Scegliere  l’opzione  C  per  CODIFICARE,  e  l’opzione  D 
per  DECODIFICARE,  e  battere  RETURN. 

II  messaggio  codificato  o  decodificato  secondo  il  ca¬ 
so,  sarà  allora  visualizzato. 


ESTENSIONI  POSSIBILI:  Si  potrà  estendere  la  codifica  a  segni  diversi 
dalle  lettere  dell’alfabeto,  utilizzare  eventualmente 
vari  generatori,  introdurre  nel  messaggio  una  codifi¬ 
ca  del  o  dei  numeri  che  sono  serviti  da  generatori, 
ecc. 
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10  REM  SPIA 

20  DIM  ft*<300>,B$<300>,R*<l> 

30  GRAPHICS  0 

40  PRINT  "Fornisci  il  codice  «"; «INPUT  N 
50  A=l/N 

60  PRINT  «PRINT  "Fornisci  il  messasaio  «  "  j  «  INPUT  A$ 

70  PRINT  «PRINT  “Vuoi  COodificare  o  <D)ecodi ficare  «INPUT  Rf 
80  B*=“" 

90  FOR  1=1  TO  LEN<A$) 

100  T=ASC<A$<I, I>) 

110  GOSUB  1000 

120  T=T-A*<  <R$="D"  >> 

130  IF  T>30  THEN  T=T-26 
140  IF  T <65  THEN  T=T+26 
150  B*<LEN<B*:>  +  1>=CHR*<T> 

160  HEXT  I 

170  PRINT  «PRINT  "Risultato  « " ; B$  «  END 
1000  A=<A+3. 14159)A8 
1010  A=A-INT<A> 

1020  A=INT<2S*A+1> 

1030  RETURN 
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Attaccate  i  vagoni 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  solitario. 

Difficoltà  del  gioco:  bassa. 

IL  GIOCO:  Bisogna  cercare  di  agganciare,  il  più  rapidamente 

possibile,  la  locomotiva  e  il  suo  vagone,  che  appaiono 
tutti  e  due  all’inizio  della  partita,  in  due  posti  più  o 
meno  lontani  dello  schermo.  Dovremo  per  questo 
spostare  la  locomotiva  indicando  la  sequenza  dei  mo¬ 
vimenti  da  effettuare  (in  maniera  codificata:  A  per 
una  casella  verso  l’alto;  B  per  una  casella  verso  il 
basso;  D  per  una  casella  verso  destra;  e  S  per  una  ca¬ 
sella  verso  sinistra). 

Si  batterà,  per  esempio:  BBSDAAA. 

IL  PROGRAMMA:  Le  linee  50  e  70  disegnano  la  locomotiva,  la  linea  80  il 
vagone,  la  linea  90  le  ruote. 

La  posizione  iniziale  della  locomotiva  è  definita  dalle 
linee  110  e  120,  quella  del  vagone  dalle  linee  130  e 
140. 

La  linea  150  evita  che  siano  inizialmente  troppo  vi¬ 
cini. 

Le  linee  210  e  220  realizzano  la  visualizzazione  del 
vagone,  le  linee  170-200  la  locomotiva. 

Il  test  di  fine  è  in  linea  230. 

I  movimenti  da  effettuare  sono  inseriti  in  una  varia¬ 
bile  alfanumerica  R$,  alla  linea  240,  e  sono  decodifi¬ 
cati  in  un  ciclo  I  (270-300),  per  essere  eseguiti  alla  li¬ 
nea  310. 


PER  GIOCARE:  RUN  permette  di  visualizzare  le  posizioni  di  partenza 

della  locomotiva  e  del  vagone. 

Si  batte  allora  la  serie  degli  spostamenti  da  effettua¬ 
re,  sotto  la  forma  DDDAAABASS,  seguito  da  RE¬ 
TURN. 

La  locomotiva  apparirà  nella  sua  nuova  posizione,  e 
si  ricomincerà,  fino  a  che  non  sia  attaccata  al  vagone. 
Si  otterrà  allora  l’apparizione  del  punteggio. 

ESTENSIONI  POSSIBILI:  Sarà  interessante  prevedere  la  perdita  della 
partita  se  per  incidente,  nel  corso  dello  spostamento, 
la  locomotiva  entra  in  collisione  col  vagone. 
Potremmo  anche  prevedere  vari  vagoni,  e  un  ordine 
di  aggancio,  giocare  in  molti  con  varie  locomotive,  di¬ 
segnare  le  ferrovie,  introdurre  degli  ostacoli  da  aggi¬ 
rare  obbligatoriamente  da  una  certa  parte,  ecc. 
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18  REM  ATTACCATE  I  VAGONI 
20  GRAPHICS  8 

30  SETCOLOR  1 ,3,2‘SETCOLOR  2,12.8 

40  DIM  A*<5>,B*<5>,C$<5>,D*<5>,E*<5>,R*<40> 

58  A$="re  u  "'REM  battere  le  lettere  minuscole  schiacciando  s  i  rou  l tardamente <C0HT 
R0L> 

60  B*="  arxe“ 'REM  vedere  40 
70  C$="rxrrc" 'REM  vedere  40 
88  D*="zrrrc“'REM  vedere  40 
90  E*="  0  0“ 

100  H=0 

110  LY=INT<RND<1>*36> 

120  LX*INT<RND<1>#19> 

130  WY*INT<RND< 1 >*31  ) 

140  WX=2+INT<RND<1)*19) 

150  IF  A6S<LX-WX><4  THEN  110 
160  PRINT  ->•' 

170  POSITION  LY,LX> PRINT  A* 

180  POSITION  LY.LX+l 'PRINT  B# 

190  POSITION  LY.LX+2' PRINT  C* 

200  POSITION  LY.LX+3' PRINT  Ef 
210  POSITION  WY.MX' PRINT  D$ 

220  POSITION  WY.WX+1 'PRINT  E* 

230  IF  LX-WX-2  AND  WY-LY-5  THEN  400 

240  POSITION  0,22 'PRINT  “Percorso  da  sesuire  <DSA8. •••>"; 1  INPUT  R» 

250  X*0‘Y=0 
268  N-N+l 

270  FOR  1=1  TO  LEN<R*> 

280  X=X+<R#d,I)=,,B"  AND  LX<18>-<Rf<I, I>="A“  AND  LX>0> 

290  Y=Y+<R$< I , I )=“D“  AND  LY<35>-<R»<I, I>=“S“  AND  LY>0> 

300  NEXT  I 

318  LX=LX*X'LY=LY+Y 

320  GOTO  160 

408  POSITION  6, 22 'PRINT  “BRAVO  !  riuscito  in  "jNj"  colpi."; 

410  INPUT  R$ 
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Lancio  di  un  dado  truccato 


RIFERIMENTI:  Programmazione:  media. 

Categoria  del  gioco:  riflessione. 

Difficoltà  del  gioco:  media. 

IL  GIOCO:  Riprende  un’idea  di  un  programma  precedente  (DA¬ 

DO  TRUCCATO)  in  una  applicazione  statistica:  si  fab¬ 
brica  un  dado  volontariamente  truccato,  che  si  lance- 
rà  un  certo  numero  di  volte,  e  si  crea  una  tabella  di 
risultati. 

IL  PROGRAMMA:  Le  probabilità  desiderate  per  ogni  tiro  sono  introdot¬ 
te  da  un  ciclo  I  (50-120),  con  tutte  le  verifiche  di  vali¬ 
dità  necessarie.  Il  numero  di  tiri  richiesti  è  introdot¬ 
to  alla  linea  140. 

Il  ciclo  J  (150-230)  contabilizza  i  lanci. 

Il  ciclo  I  (170-190)  assicura  la  conformità  di  ogni  lan¬ 
cio  con  le  probabilità  introdotte  all'inizio  del  gioco. 

I  risultati  sono  contabilizzati  alla  linea  200,  e  visua¬ 
lizzati  grazie  alle  linee  210  e  220. 

PER  GIOCARE:  Cominciare  l’esecuzione  battendo  RUN,  poi,  alla  do¬ 

manda  PROBABILITÀ  DEL  DADO  1,  introdurre  un 
numero  tra  0  e  1. 

Fare  lo  stesso  per  i  dadi  2,  3,  ecc.,  senza  dimenticare 
che  il  totale  delle  probabilità  introdotte  dovrà  essere 
vicinissimo  a  1. 

In  seguito,  all’apparizione  della  domanda  NUMERO 
DI  LANCI  si  introdurrà  un  intero  sufficientemente 
grande,  seguito  da  RETURN.  La  visualizzazione  dei 
risultati  richiederà  tanto  più  tempo  ad  apparire 
quanto  più  è  grande  l’intero  inserito. 

I  risultati  sono  visualizzati  sotto  i  numeri  dei  lanci: 
così  32.3  apparso  sotto  l’I  significa  che  il  lancio  di  1, 
al  quale  avrete  assegnato  una  probabilità  di  0.3  è  sta¬ 
ta  realizzata  32  volte. 

ESTENSIONI  POSSIBILI:  Possiamo  immaginare  di  migliorare  la  raffigu¬ 
razione  dei  risultati  utilizzando  per  esempio  un  isto¬ 
gramma,  oppure  un  qualsiasi  altro  metodo  grafica- 
mente  più  soddisfacente. 
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10  REM  LANCIO  DI  UN  DADO  TRUCCATO 
20  DIM  E<6> 

30  GRAPHICS  0 
40  P=0 

50  FOR  1=1  TO  6 
60  POSITION  0,3-PRINT  " 

70  POSITION  0,3=PRINT  "Probabilità'  del  dado  "il; 1  INPUT  EE<I)=E 
80  P=P+E(I) 

90  IF  E<  I  >  <0  OR  E<  I  »=1  OR  P>1.1  THEN  300 
100  POSITION  6*1-4, 6 SPRINT  “DADO  ";I 
110  POSITION  6*1-3, SsPRINT  E<I> 

120  NEXT  I 

130  IF  P<0, 9  THEN  RUM 

140  POSITION  0,11  SPRINT  "Numero  di  lattei  <"i-  INPUT  P 

150  FOR  J=1  TO  P 

160  N= I NT  <  RND < 1 ) *6+ 1 ) 

170  FOR  1=1  TO  6 

188  IF  N=I  AND  RND< 1 )>E< I )-INT<E< I > )  THEN  160 
ISO  NEXT  I 

200  eo-o=e<n:>+i 

210  POSITION  6*N-3, 15 SPRINT  N 
220  POSITION  6*N~4, 17  SPRINT  E<N) 

230  NEXT  J 
240  END 

300  POS I T I ON  0 , 4  s  PR I NT  " I MPOSS I B I LE  !  !  !  0  <=P <= 1 " 

310  P=F'-E<  I  > 

320  FOR  J=1  TO  1 700 = NEXT  J 
330  POSITION  0,4 SPRINT  " 

340  GOTO  60 
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Gioco  con  le  carte 


RIFERIMENTI:  Programmazione:  difficile. 

Categoria  del  gioco:  gioco  di  prestidigitazione. 
Difficoltà  del  gioco:  bassa. 

IL  GIOCO:  È  un  gioco  abbastanza  facile  ma,  qui,  le  carte  sono 

manipolate  sotto  i  vostri  occhi  dall’ATARI  che  ha  il 
ruolo  di  prestigiatore;  21  carte,  prese  a  caso  in  un 
mazzo  di  52,  sono  visualizzate,  e  il  giocatore  dovrà 
scegliere  mentalmente  una  delle  carte  proposte.  Poi 
dovrà  indicare  all’ATARI  in  quale  colonna  (Ima, 
2nda,  o  3za  partendo  da  sinistra)  si  trova  la  carta 
scelta;  le  carte  sono  allora  ridistribuite  ed  il  giocato¬ 
re  indica  di  nuovo  la  colonna  corrispondente  alla  sua 
carta;  questo  è  fatto  di  nuovo  ancora  una  volta,  alla 
quarta  visualizzazione,  l’ATARI  è  in  grado  di  indovi¬ 
nare  la  carta  scelta. 

IL  PROGRAMMA:  Il  ciclo  I  (60-120)  permette  di  scegliere,  a  caso,  21  car¬ 
te  su  52,  ed  il  ciclo  chiuso  J  (80-100)  permette  di  assi¬ 
curarsi  che  non  si  realizzi  due  volte  la  stessa  scelta. 
La  linea  140  contiene  il  colore  delle  carte,  così  come 
il  nome  delle  figure  (FA,  DO,  RE,  AS),  in  una  variabile 
alfanumerica  B$. 

Il  ciclo  I  (150-240)  realizza  la  visualizzazione  del 
gioco. 

La  linea  160  decodifica  il  colore  della  carta. 

La  linea  170  sceglie  la  posizione  di  visualizzazione. 
La  linea  180  decodifica  l’altezza. 

La  visualizzazione  vera  e  propria  è  realizzata  dalla  li¬ 
nea  190  alla  linea  230. 

La  linea  260  permette,  al  giocatore,  di  inserire  il  nu¬ 
mero  della  colonna  dove  si  trova  la  carta.  Il  ciclo  J 
(300-320)  realizza  la  mescola,  ed  i  cicli  chiusi  J 
(350-390)  e  I  (360-380)  fabbricano  la  nuova  variabile 
A$  da  utilizzare  per  la  prossima  visualizzazione. 

PER  GIOCARE:  Si  lancia  il  programma  con  RUN. 

Appaiono  le  prime  21  carte,  divise  in  tre  colonne. 

Si  indica  allora  il  numero  (1,  2,  3)  della  colonna  dove 
si  trova  la  carta  scelta,  seguito  da  RETURN. 

Si  ottiene  una  seconda  visualizzazione  e  si  procede 
nella  stessa  maniera;  poi  una  terza  e  si  fa  la  stessa 
cosa. 

Alla  quarta  mano,  la  carta  scelta  è  automaticamente 
visualizzata. 

Si  uscirà  dal  programma  battendo  BREAK  al  posto 
del  numero  di  colonna. 
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ESTENSIONI  POSSIBILI:  Si  può  immaginare  una  miglioria  della  visua¬ 
lizzazione  scrivendo  il  nome  ‘delle  carte  per  intero,  o 
anche  disegnando  delle  vere  carte,  a  colori. 

Si  potrà  anche  cercare  di  programmare  degli  altri 
giochi,  usando  lo  stesso  principio  di  base,  ma  con  più 
carte,  ecc. 


10  REM  GIOCO  CON  LE  CARTE 
20  GRAPHICS  S 

30  SETC0L0R  1 , 2SETC0L0R  2, 15,8-SETCOLOR  4,15,8 
40  DIM  R$<21>,B*<21>,R*<5> 

58  R*=" " 

60  FGR  1=1  T0  21 

70  B$=CHR* < INT(RND< 1 >*52+38) > 

75  IF  A$=""  THEN  110 
30  FOR  J=1  T0  LEN<fì*> 

90  IF  B$=fl*<J,J>  THEN  70 
10O  NEXT  J 

110  r$<:len<r*>  +  i>=b* 

120  NEXT  I 
130  H=3:P=1 

140  B*= 11 F I QUCUP I FADOREAS “ 

158  FOR  1=1  T0  LEN<A*>*P+11*<P=0> 

160  S=INT<<ASC<A$<I, I)>-38)/13) 

170  J=7*INT<<I-l>/7> 

180  T=RSC<A$<I,I>>-37-13*S 

190  IF  P=0  THEN  P0SITI0N  0,0'PRINT  “La  tu*  carta  e'  • 

200  P0SITI0N  4+J*P+INT<J/2>+16*<P=0>,a-J>*P 
210  IF  T <=9  THEN  PRINT  STR$<T+1>; 

220  IF  T>9  THEN  B=ABS<2*T-1 1 > 'PRINT  B*<B,B+1>; 

230  POSITIÙN  4+<J+3>*P+l+IHT<J/2)+21*<P=0>,<I-J>*P-PRINT  B*<2*S+l,2*S+2> 

240  NEXT  I 

250  IF  P=0  THEN  END 

260  POSITIQN  0, 16 'PRINT  "Quale  colonna  1 " J • INPUT  N 
270  PRINT  ">" 

280  H=H-1 

290  R*="20120"’B*="" 

300  FOR  J=0  TO  2 

310  B=7*VAL <  R* ( N+ J , N+ J ) > + 1 1 B*<  LEN<  B* > + 1 >=A* < 8 , B+6 ) 

320  NEXT  J 

330  IF  H-0  THEN  A*=B* ! P=8 1  GOTO  140 
340  A*=‘"‘ 

350  FOR  J=0  TO  2 
368  FOR  1=1  TO  7 

370  A*  <  LEN  <  A*  > + 1 > =B*  <  3* I -2+ J ,3*1 -2+ J ) 

380  NEXT  I 
390  NEXT  J 
400  GOTO  140 
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Il  gioco  di  Marienbad 


RIFERIMENTI:  Programmazione:  di  media  difficoltà. 

Categoria  del  gioco:  logica  (2  giocatori). 

Difficoltà  del  gioco:  media. 

IL  GIOCO:  Un  gioco  reso  celebre  grazie  ad  un  film  viene  presen¬ 

tato  qui  in  una  versione  più  conforme  alle  sue  origi¬ 
ni,  ossia  il  gioco  di  NIM. 

Infatti,  è  possibile,  all’inizio  della  partita,  scegliere  il 
numero  di  fiammiferi  che  vogliamo  mettere  in  ogni 
mucchio. 

Ogni  giocatore  gioca  turno  che  prende  l’ultimo  fiam¬ 
mifero  ha  perso. 

IL  PROGRAMMA:  La  linea  70  dimensiona  una  variabile  A(I)  che  conter¬ 
rà  il  numero  di  fiammiferi  di  ogni  mucchio. 

Il  ciclo  I  (80-110)  permette  di  inserire  questo  numero. 
Il  ciclo  I  (140-170)  presenta  il  mucchio. 

La  linea  180  garantisce  la  visualizzazione  del  numero 
del  giocatore. 

La  linea  200,  così  come  la  210,  controllano  se  la  mos¬ 
sa  è  autorizzata. 

La  linea  280  controlla  la  fine  della  partita. 

PER  GIOCARE:  Si  lancia  il  programma  con  RUN,  poi  si  inserisce  il 

numero  di  mucchi  (tra  1  e  7),  seguito  da  RETURN. 

Si  inserirà  in  seguito  il  numero  di  fiammiferi  in  ogni 
mucchio  (fare  ad  ogni  ingresso  N  seguito  da  RE¬ 
TURN).  Si  otterrà  allora  la  visualizzazione  dei  diffe¬ 
renti  mucchi,  col  numero  del  giocatore  interessato  (1 
o  2),  così  come  il  messaggio  IN  QUALE  MUCCHIO?; 
si  risponde  battendo  il  numero  del  mucchio  nel  quale 
si  desidera  pescare  seguito  da  RETURN.  Si  ottiene 
allora  la  domanda  QUANTITÀ  DA  TOGLIERE?,  e  si 
risponde  indicando  il  numero  di  fiammiferi  che  si  de¬ 
sidera  levare  dal  mucchio. 

Poi  sarà  il  turno  del  secondo  giocatore,  e  si  giocherà 
alternativamente  fino  a  che  non  ci  siano  più  fiammi¬ 
feri  disponibili. 

In  fine  partita,  si  otterrà  la  visualizzazione  del  nume¬ 
ro  del  giocatore  vincente. 

ESTENSIONI  POSSIBILI:  Si  può  designare  ogni  giocatore  col  suo  nome, 
fare  una  grafica  più  elaborata,  scrivere  un  program¬ 
ma  che  permetta  all'ATARI  di  fare  da  partner,  ecc. 
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10  REM  IL  GIOCO  DI  MRRIENBAD 
20  GRAPHICS  0 
30  DIM  N*<1> 

40  PRINT  "Numero  di  mucchi  <<=?>•">■ INPUT  N 
50  IF  N<=0  OR  N>=8  THEN  RUN 
60  S=0 
70  DIM  A<N> 

80  FOR  1=1  TO  N 

90  PRINT  ! PRINT  "Mucchio  U>1> “  -  numero  di  fiammiferi  “  "  j  ‘  INPUT  A‘fi<I>=A 
100  S=S+A<I> 

110  NEXT  I 
120  H=1 
130  PRINT  ">" 

140  FOR  1=1  TO  N 

150  POSITION  5*1+2, 4“PRINT  A<I) 

ISO  POSITION  8,6 “PRINT  "Mucchio" “POSITION  5*1+2, 6“PRINT  I 
170  NEXT  I 

180  POSITION  2, 10 “PRINT  "  Giocatore  ">H 

190  PRINT  PRINT  "In  che  mucchio  “ " j “ INPUT  T 

200  IF  T>N  THEN  130 

210  IF  h<T>=0  THEN  130 

220  POSITION  2, 14 “PRINT  "Quantità'  da  toaliere  “  "; “POSITION  25, 14“ INPUT  W 

230  IF  W>A(T>  OR  W=0  THEN  210 

240  A<T)=A<T>-W 

250  S=S-W 

260  H=H+1 

270  IF  H=3  THEN  H=1 

290  IF  9=0  THEN  PRINT  “PRINT  "Il  aiocatore  ";H; "  vince. "“END 
290  GOTO  130 
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L’indesiderato 


RIFERIMENTI:  Programmazione:  difficile. 

Categoria  del  gioco:  fortuna  e  riflessione  (1  gioca¬ 
tore). 

Difficoltà  del  gioco:  media. 

IL  GIOCO:  Siete  proprietario  di  un  immobile  con  16  apparta¬ 

menti  vuoti  e  non  riuscite  a  mettere  le  mani  sul  vo¬ 
stro  inquilino  indesiderato.  Visitate  gli  appartamenti 
a  caso  ma,  se  visitate  l’appartamento  vicino,  il  vostro 
inquilino  sentendo  il  rumore,  si  sposta.  Può  anche  in¬ 
stallarsi  in  un  appartamento  che  avete  già  visitato  e 
segnato  come  vuoto.  Per  vincere  bisognerà  mandarlo 
via  con  meno  di  9  mosse. 

IL  PROGRAMMA:  Un  array  B  è  dimensionato  a  16,  alla  linea  20,  per  ri¬ 
cevere  i  numeri  delle  caselle  già  visitate. 

Il  ciclo  I  (80-110)  disegna  il  campo  di  gioco. 

La  posizione  iniziale  dell’inquilino  è  scelta  a  caso  dal¬ 
la  linea  120. 

Il  numero  della  casella  da  visitare  è  dato  dalla  linea 
130. 

Le  linee  da  135  a  220  controllano  le  risposte  possibili. 
Il  ciclo  I  (180-200)  disegna  le  caselle  visitate. 

La  linea  230  disegna  l’inquilino,  cancellato  alla  linea 
260. 

Le  linee  270  e  280  assicurano  il  suo  trasferimento. 
Le  linee  da  500  a  1000  assicurano  la  decodifica  della 
musica  da  suonare. 

PER  GIOCARE:  Si  lancia  il  programma  con  RUN. 

Alla  domanda  CASELLA  DA  VISITARE?  si  risponde 
battendo  una  lettera  da  A  a  P.  Se  si  è  trovato  l’inquili¬ 
no,  questi  viene  visualizzato  e  la  partita  è  finita;  se 
non  siete  riusciti  a  trovarlo  si  possono  verificare  due 
casi:  se  siamo  abbastanza  lontani  e  l’inquilino  non  si 
sposta,  oppure  è  in  una  casella  e  appare  per  un  breve 
istante,  e  si  nasconde  a  caso  in  una  casella  vicina. 
Nelle  caselle  già  visitate  appare  un  cuore  e  non  po¬ 
trete  più  ritornarci.  Se,  dopo  9  colpi,  non  l’avete  tro¬ 
vato,  la  posizione  dell'inquilino  si  evidenzia  e  avete 
perso. 

ESTENSIONI  POSSIBILI:  Si  potrà  certamente  giocare  con  più  di  16  ca¬ 
selle,  utilizzare  dei  caratteri  grafici  per  rappresenta¬ 
re  l'inquilino  e  il  proprietario,  utilizzare  un  algorit¬ 
mo  più  fine  per  lo  spostamento  dell’inquilino,  vietar¬ 
gli  eventualmente  di  ritornare  nelle  caselle  già  visita¬ 
te,  ecc. 
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10  REM  L' INDESIDERATO 
28  DIM 

25  FOR  1=1  TO  16‘6<I>=0‘NEXT  I 
30  A*=CHR*<160> 

48  FOR  1=1  TO  3‘B*<LEN<B*>+1>=A*‘NEXT  I 
58  GRAPHICS  8 

G8  SETCOLOR  1 , 3, 2 • SETCOLOR  2,8,10 
70  PRINT  “>" 

88  FOR  1=1  TO  16 

90  POSITION  4+4*<I-l-4*INT<<I-l>/4>>,2+4*INT<a-l>/4>  ‘PRINT  B* 

100  POSITION  4+4*<I-l-4*INT<<I-l>/4:>>,3+4*INT<<I-i;>/4>‘ PRINT  A$J 1 PRINT  CHR*<64+I 
> ;  1 PRINT  A* 

110  NEXT  I 

120  X=INT<RND<mi6+l>  S=1  ‘K=0 

138  C*= . POSITION  0,20 ‘PRINT  "Casella  da  visitare  ■  " >  ‘POSITION  21*20* INPUT 

C$  *  C= ASC  (CO  -64 
135  IF  C<1  OR  016  THEN  130 

148  IF  B<C>=1  THEN  POSITION  0,22‘PRINT  "Già'  visitata!" ‘GOTO  130 

158  IF  C=X  THEN  POSITION  8,22‘PRINT  "Scovato  in  ";S;"  colpi. “ ‘M$="DOMISO" =GOSUB 

500 ‘K'=l ‘GOTO  230 

160  IF  ABS<X-C)<=5  AND  ABS<X-C)<>2  THEN  230 

178  POSITION  8,22 ‘PRINT  "Non  e'  U' !" ‘M*= "DOREMI " ‘GOSUB  500 

188  S=S+1 ‘B<C)=1 ‘FOR  1=1  TO  16 

190  POSITION  4+4*( I-1-4#INT< <1-1 >^4>>, 2+4*INT<< I-ll/A) ‘PRINT  CHR*<ASC<B*>-32*B< I 

)  > 

200  NEXT  I 

210  IF  S=3  THEN  POSITION  0,22‘PRINT  "Hai  Perso,  era  in  ";CHR*<X+64>; " =K=1 ‘GOTO 
230 

220  POSITION  0,22 ‘PRINT  H  "‘GOTO  130 

230  POSITION  5+4*<X-l-4*INT<<X-l)/4>>,l+4*INT<<X-l V4>‘PRINT  "x“ 

240  FOR  1=1  TO  300 ‘NEXT  I 

250  IF  K=1  THEN  M*="SOMIDO" ‘GOSUB  500 ‘POSITION  0,23 ‘END 

260  POSITION  5+4*CX-l-4*INT<<X-l>x4)),l+4*INT((X-l)/4)‘PRINT  -  “ 

278  Z=INT<10*RND<1>+1>-5=IF  ABS<2>=2  THEN  270 
280  X=X+2‘ IF  X> 16  OR  X<1  THEN  X=X-Z ■ GOTO  270 
290  GOTO  180 

580  FOR  1=1  TO  LEN<M$>/2 

510  READ  NO*,NO‘IF  NO*OM*<2*I-1 , 2*1  >  THEN  510 

520  SOUND  0, NO, 18,4 

530  FOR  T=0  TO  30 ‘NEXT  T 

540  RESTORE 

558  NEXT  I 

560  RETURN 

1008  DATA  DO, 126, RE, 108, MI, 96, FA, 91, SO, 81, LA, 72, SI, 64 
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Componi 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  composizione  musicale. 
Difficoltà  del  gioco:  nessuna. 

IL  GIOCO:  Si  tratta,  infatti,  di  un  programma  capace  di  compor¬ 

re,  in  modo  molto  elementare,  della  musica,  e  questo 
in  una  maniera  completamente  casuale.  Il  calcolato¬ 
re,  in  un  primo  tempo,  disegnerà  uno  spartito,  poi 
stamperà  una  successione  di  note  (che  vanno  dal  DO 
grave  al  SI  acuto)  e  assegnerà  loro  il  nome.  Una  nuo¬ 
va  serie  di  note  apparirà  in  seguito,  e  così  via. 

IL  PROGRAMMA:  Il  ciclo  I  (50-70)  disegna  lo  spartito. 

La  variabile  N$,  alla  linea  80,  contiene  i  nomi  delle 
note  e  VA$  alla  linea  35  contiene  le  note  in  forma  co¬ 
dificata. 

Il  secondo  ciclo  I  (90-170)  permette  di  fare  la  scelta  di 
una  nota  in  maniera  casuale,  alla  linea  100;  il  suo  no¬ 
me  è  calcolato  alla  linea  1 10  e  la  nota  è  disegnata  alla 
linea  120. 

La  linea  180  permette  di  ricominciare  battendo  RE¬ 
TURN. 


PER  GIOCARE:  Lanciare  l’esecuzione  del  programma  battendo  RUN. 

Lo  spartito  sarà  visualizzato  rapidamente,  poi  le  note 
saranno  rappresentate  col  loro  nome  in  basso  sullo 
schermo. 

Una  pressione  su  RETURN  provocherà  l’apparizione 
di  una  nuova  serie  di  note,  ed  una  pressione  sul  tasto 
BREAK  provoca  la  fine  della  partita. 

ESTENSIONI  POSSIBILI:  Potremmo  affinare  le  regole  di  composizione, 
visualizzare  più  note,  introdurre  dei  diesis  e  dei  be¬ 
molle,  migliorare  la  grafica  ,  fare  suonare  la  melodia 
visualizzata. 
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10  REM  COMPONI 

20  DIM  N*<21),D*<3>,Vfl*<42> 

30  SETCOLOR  1 , 7 , 2 = SETCOLOR  2, 13, Ì0>SETCOLOR  4,13/10 
35  VFl*= " 03 1 03504004504 705306306407208 1 03 1 096108 1 26 " 

48  PRINT  ">" 

50  FOR  1=1  TO  5 

60  POSITION  1 j 3+2*1 ‘FOR  L=1  TO  37 'PRINT  CHR$(18); 'NEXT  L 
70  NEXT  I 

80  N*="SI  Lfl  SOLFft  MI  RE  DO  “ 

30  FOR  1=1  TO  13 

1 08  X=  I NT < RHD <  mi 4+ 1  ì 

110  D=3* <  X-7*  < X> 7  > )  ■ -2  > D»=N* <  0 / D+2 ) 

120  POSITION  3*1-1 ,X-1 'PRINT  CHR*< 22) 'POSITION  3*1-1, X'PRINT  CHR4K22) 'POSITION  3 
*1-2/ X+l 'PRINT  CHR*(36) 

140  POSITION  3*1-2/ 18 'PRINT  D$<1,2> 

150  D=D+3 *7*<X>7) 

160  SOUND  8, VftL<Vfi*<D, D+2) >/ 10/4 
165  FOR  T=1  TO  50 'NEXT  T 
170  NEXT  I 

180  POSITION  3/21 'PRINT  "Battere  <RETURN>  Per  conti ma re" , ' INPUT  Di 
ISO  GOTO  40 


88  102  programmi  per  ATARI 


Giorno  della  settimana 


RIFERIMENTI:  Programmazione:  di  media  difficoltà. 

Categoria  del  gioco:  utilità. 

Difficoltà  del  gioco:  bassa. 

IL  GIOCO:  Il  programma  vi  permette  di  ritrovare,  senza  alcun 

calcolo,  il  giorno  della  settimana  corrispondente  ad 
una  certa  data. 

La  data  sarà  inserita  sotto  forma  di  tre  numeri,  per 
esempio  11,  3,  1956  per  l’il  marzo  1956,  e  apparirà  il 
risultato. 


IL  PROGRAMMA:  Le  linee  da  30  a  70  controllano  gli  inserimenti.  La  li¬ 
nea  40  si  occupa  della  fine  del  programma.  La  linea 
90  permette  una  correzione  per  le  date  precedenti  il 
1582  (messa  in  opera  dell’attuale  calendario). 

Le  linee  da  100  a  110  permetteranno  la  visualizzazio¬ 
ne  in  chiaro  del  mese  nella  risposta  (su  4  lettere). 

La  formula  utilizzata  appare  alle  linee  130  e  140. 

Le  linee  150  e  160  permetteranno  la  visualizzazione 
del  giorno  nella  risposta. 

La  linea  170  stampa  i  risultati. 

Il  sottoprogramma  200-220  interviene  per  considera¬ 
re  i  mesi  di  gennaio  e  febbraio. 

PER  GIOCARE:  Lanciare  il  programma  con  RUN,  poi  inserire  il  gior¬ 

no  seguito  da  RETURN,  il  mese  (tra  1  e  12)  seguito  da 
RETURN,  e  l’anno  (nella  forma  1845,  per  esempio) 
seguito  da  RETURN. 

Il  risultato  è  rapidamante  visualizzato. 

Battendo  un  tasto  qualunque  ritorna  sulla  domanda 
GIORNO? 

Per  continuare  basta  battere  un  giorno,  un  mese,  un 
anno. 

Per  terminare,  basta  rispondere  0  alla  domanda 
GIORNO? 

ESTENSIONI  POSSIBILI:  Si  potrà  inserire  il  mese  in  lettere  e  fare  visua¬ 
lizzare  il  nome  del  giorno  per  intero.  Si  può  immagi¬ 
nare  di  fare  apparire  le  date  delle  feste  particolari 
(Natale,  Pasqua,  Pentecoste...). 

Si  può  scrivere  un  programma  che  visualizzerebbe  i 
giorni  festivi  per  un  dato  anno,  ecc. 
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10  REM  GIORNO  DELLA  SETTIMANA 
20  GRAPHICS  0 
25  DIM  M$<43>/ J$<63> 

30  PRIHT  "Giorno . 1  "  »  1  INPUT  J 

40  IF  J=0  THEN  END 

50  PRINT  PRINT  "Mese . INPUT  M 

60  PRINT  :  PRIHT  "Anno . >“;* INPUT  A 

70  B=A 

80  S= I NT  <  A/ 1 00  > - 1 NT < A/468 > 

90  IF  A <=1582  THEN  S=2 

100  M*="GEN  FEB  MAR  APR  MAG  GIU  LUG  AGO  SET  OTT  NOV  DIC  " 

110  MÌ=M3<4*H-3,4*M> 

120  IF  H<3  THEN  GOSUB  200 

130  S= J- 1  + 1 NT < 1 3* < M+ 1 )/5>  +  INT<5*A/4>-S 

140  S=S-74: 1  NT <  S/7  > 

150  J*= "DOMENICA  LUNEDI  MARTEDÌ  MERCOLEDÌ GIOVEDÌ  VENERDÌ  SABATO 
160  J*=J$<9*S+l,9*S+9> 

178  POSITION  2.-15  PRINT  "Il  “;J;"  ";M<U"  ";Bi“  era  un 

180  POSITION  3,23  PRINT  "Battere  <RETURN>  Per  continuare" ;= INPUT  M$ 

196  RUN 

280  M=M+ 1 2 

218  A=A- 1 

220  RETURN 
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Gioco  della  vita 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  difficile. 

Categoria  del  gioco:  gioco  solitario  (2  versioni). 
Difficoltà  del  gioco:  bassa. 

La  versione  presentata  qui  rispetta  le  regole  poste  al¬ 
l’origine  dal  matematico  J.H.  CONWAY. 

Una  certa  popolazione  è  definita  all'inizio  del  gioco 
sia  dall’ATARI  (versione  automatica)  sia  da  voi  stessi 
(versione  manuale).  Questa  popolazione  evolverà  sot¬ 
to  i  vostri  occhi,  rispettando  certe  regole,  molto  ele¬ 
mentari  di  nascita,  di  vita  e  di  morte.  L’evoluzione 
proseguirà  fino  a  che  non  si  deciderà  di  fermare  il 
programma. 

Due  array  (BeC)  sono  utilizzati  alla  linea  30,  per  re¬ 
gistrare  lo  stato  della  popolazione.  I  cicli  F  (230-300) 
e  G  (240-290)  sono  utilizzati  all’inizio  del  gioco  per  de¬ 
finire  la  popolazione  iniziale  (linee  250  e  260).  Il  cal¬ 
colo  della  nuova  popolazione  è  realizzato  in  seguito 
con  l’aiuto  di  un  ciclo  quadruplo:  80-210,  90-200, 
110-160,  120-150.  La  linea  130  realizza  la  gestione  del 
nuovo  stato  secondo  le  regole. 

La  visualizzazione  di  questo  nuovo  stato  è  ottenuta 
riutilizzando  il  doppio  ciclo  di  visualizzazione  F 
(230-300)  e  G  (240-290). 

La  linea  340  permette  di  ricominciare. 

Nella  versione  automatica,  basta  lanciare  il  program¬ 
ma  con  RUN  e  guardare. 

Per  fermarsi,  bisognerà  battere  BREAK. 

Nella  versione  manuale,  la  configurazione  di  inizio 
sarà  inserita,  dopo  il  lancio  del  programma  con 
RUN,  battendo  0  se  non  si  vuole  mettere  niente  sulla 
linea  e  sulla  colonna  indicate,  e  1  se  si  desidera  met¬ 
terci  una  cellula.  Poi  l’evoluzione  si  svolgerà  in  segui¬ 
to  automaticamente. 


ESTENSIONI  POSSIBILI:  Sarà  facile,  se  si  dispone  di  una  memoria  più 
capace,  di  aumentare  le  dimensioni  degli  arrays  B  e 
C,  ridefinendo  la  variabile  A.  Si  potrà  anche  intro¬ 
durre  il  colore,  migliorare  la  precisione  del  disegno 
rimpiazzando  i  PRINT  con  una  visualizzazione  ad  al¬ 
ta  risoluzione. 
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5  REM  GIOCO  DELLA  VITA  (MANUALE) 

IO  DIM  N*(5),R*<3> 

15  GRAPHICS  8 

23  SETCOLOR  1  - 4-14 • SETCOLOR  2,10,6 

25  PRIMI  "DIMENSIONE  ■  "  ì  ■  G0SU6  480  >  A=R ■'  IF  A>1@  OR  A<1  THEH  15 
30  DIM  B<A, A) ■  C(A, A) 

35  FOR  1=1  TO  A 
46  FOR  J=1  TO  A 
45  B<I,J>=0'C<r,J>»0 
50  NEXT  J 
55  HEXT  I 
60  1=0 
70  GOTO  220 
80  FOR  F=1  TO  A 
90  FOR  G=1  TO  A 
100  S=0 

HO  FOR  I=-l  TO  1 
120  FOR  J=-l  TO  1 

130  IF  F+J=0  OR  G+ I =0  OR  F+J=A+1  OR  G+I=A+1  THEH  150 
140  S=S+B(F+J,G+I> 

150  NEXT  J 
160  NEXT  I 
178  S=2*S-B(F,G> 

180  C(F,G)=0 

19©  IF  S>=5  AND  S<=7  THEN  C(F,G)=1 
200  NEXT  G 
210  NEXT  F 
220  PRINT  “>" 

238  FOR  F=1  TO  A 
240  FOR  G=1  TO  A 
258  IF  108  THEH  280 

268  POSITION  8,22=PRINT  "Ri**  ">F>K  Colonna  ">G; "-Battere  1  o  0= 

270  POSITIOH  33, 22 : GOSUB  400 ' C(F, G)=R ' IF  C(F,G)<>0  AND  C<F,G)<>1  THEN  260 
288  POSITION  2*G,2*F>IF  C(F,G>=1  THEN  PRINT 
290  B(F,G)=C<F,G) 

380  HEXT  G 
310  HEXT  F 
320  N=N+1 
330  N*=STR*(N> 

340  POSITION  12-INT <LEN<N$>^2> , 23 1 PRINT  "GENERAZIONE  " > 

358  FOR  1=1  TO  LEN(N$) 

368  PRINT  CHR*(RSC<N$<I,I>>+128>1 

378  NEXT  I 

388  GOTO  80 

400  INPUT  RF : R=0 

410  IF  R*=M"  THEN  R=0' RETURN 

420  FOR  I=LEN(R*>  TO  1  STEP  -1 

430  AS=ASC(R*(I,I))-48>IF  AS<0  OR  AS>9  THEN  R=0 • RETURN 
440  R=R+AS*  1 0''  <  LEN  (  R$  >- 1  > 

458  HEXT  I 
460  RETURN 
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10  REM  GIOCO  DELLO  VITO  (AUTOMATICO) 

15  GRAPHICS  0 

20  SE  TCOLOR  1 , 1 0 . 6 : SET COLOR  2.4.14 

25  FRI NT  "DIMENSIONE  INPUT  A=IF  R> 1 1  OR  A<0  THEN  15 
30  DIM  B<A. A) . C(A. A) . NT  <5) 

35  FOR  1=1  TO  A 

40  FOR  J=1  TO  A 

45  B  <  I . J  >  =0 : C  <  I .  J ) =0 
50  NEKT  J 
55  NEKT  I 
60  1=0 
70  GOTO  220 
30  FOR  F=1  TO  A 

90  FOR  G=1  TO  A 

100  8-0 

110  FOR  I=-l  TO  1 
120  FOR  J=-l  TO  1 

130  IF  F+J=0  OR  G+ I =0  OR  F+J=A+1  OR  G+I=A+1  THEN  150 
140  S=S+EKF+J. G+I ) 

ISO  NEKT  J 
160  NEKT  I 
170  S=2*S-B<F.G) 

1 30  C  <  F  .•  G  )  =0 

190  IF  S>  =5  AND  S<=7  THEN  C(F.G)=1 
200  NEKT  G 
2lè  NEKT  F 
220  FRI NT  ">" 

230  FOR  F=1  TO  A 

240  FOR  G=1  TO  A 

250  IF  ICO  THEN  270 

268  IF  RNDUX0.5  THEN  C<F.G)  =  1 

270  POSITION  2*G.2#F*IF  C<F,G)  =  1  THEN  PRINT 

280  B  <  F .  G  )  =C  (  F .  G  ) 

298  NEKT  G 

300  NEKT  F 

310  N=N+ 1 
315  N$=STR$<N> 

320  POS I T I OH  1 2- 1 NT  < LEN  < N* > /2 > . 23 ' PR I NT  " GENERAZ I ONE  " ; 
325  FOR  1=1  TO  LEN (NT) 

330  PRINT  CHR$KftSC(N$( I . I ) )+128) > 

335  NEKT  I 

340  GOTO  80 
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LIVELLO  3 


N. 

Nome  del  programma 

Tema  e  particolarità 

1 

Un  dado 

Lancio  di  un  dado,  con  grafica 

2 

Più  grande,  più  piccolo 

Un  gioco  di  deduzione  interessante,  per  1 
giocatore 

3 

Ordine 

Un  po’  di  astuzia  per  rimettere  in  ordine, 
il  più  rapidamente  possibile 

4 

L’impiccato 

Un  gioco  di  lettere  molto  classico  (2  gio¬ 
catori) 

5 

Briscola 

Per  simulare  una  mano,  con  un  mazzo  di 
32  carte 

6 

Taccuino  di  calcolo 

Un  buon  allenamento  (2  giocatori) 

7 

Impiccato  inverso 

Questa  volta  è  il  calcolatore  che  cerca 
d’indovinare  la  parola 

8 

Nicomat 

Per  perfezionarsi  in  calcolo  mentale  (1  o 
più  giocatori) 

9 

Corsa  di  cavalli 

Abbastanza  visuale:  un  gioco  di  fortuna, 
per  vari  educatori 

10 

Attraverso 

Un  gioco  di  strategia  per  2  giocatori 

11 

Mastermind 

Con  dei  numeri,  ma  classico,  per  1  solo 
giocatore 

12 

Idem 

Un  gioco  di  calcolo  mentale,  con  vari  li¬ 
velli,  per  vari  giocatori 

13 

Orologio 

Non  buttate  il  vostro  vecchio  televisore; 
trasformatelo  in  un  orologio 

14 

Regine  sulla  scacchiera 

Un  vecchio  problema,  per  aiutarvi  a  ri¬ 
flettere 

15 

Ripetizioni 

Ripetere  una  sequenza  di  cifre  sempre 
più  lunga 

16 

Parole 

Un'idea  molto  semplice,  ma  non  è  così  fa¬ 
cile  da  trovare 

17 

Permutazioni 

Un  gioco  di  riflessione,  non  sempre  evi¬ 
dente 

18 

Bridge 

Mettete  a  punto  i  vostri  problemi  di 
bridge 

19 

Hanoi 

Un  consiglio:  cominciate  da  poco!!! 

20 

Rombi 

Per  aiutarvi  ad  addormentarvi 

21 

Matteo 

Non  sapete  disegnare?  Lasciatelo  fare  a 
un  calcolatore 

22 

Il  lupo  e  gli  agnelli 

Un  gioco  di  riflessione,  per  2  giocatori 
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Manipolazione  di  stringhe 
e  grafici  ad  alta  risoluzione 


TRATTAMENTO  DI  STRINGHE  DI  CARATTERI 

Abbiamo  avuto  l’occasione  di  incontrare,  già  dal  livello  2,  la  funzione  es¬ 
senziale  utilizzata  nel  Basic  ATARI  per  manipolare  le  stringhe:  si  tratta  di 
A$.(I,J)  che  permette  di  estrarre,  nella  stringa  A$,  una  sottostringa  di  lun¬ 
ghezza  J — 1+1  a  iniziare  dal  carattere  I. 

Così  se, 

A$=  "SIGNORE” 
avremo: 

A$.(2,4)=  "IGN” 

Il  Basic  dell’ATARI  permette  la  sostituzione  diretta  di  una  sottostringa 
con  una  assegnazione  del  tipo  A$  ( — , — )=  " — Sarà  necessario  scrivere, 
per  sostituire  la  Iesima  lettera  della  stringa  A$  (1,1)  =  "Nuova  Lettera”  e 
per  allungare  di  1  la  stringa  basterà  fare:  A$  (LEN  (A$)  +  1)  =  stringa  di 
caratteri  da  aggiungere  a  destra. 

LE  DIFFERENTI  FUNZIONI  GRAFICHE 

Fino  ad  ora  abbiamo  implicitamente  utilizzato  il  comando  GRAPHICS  0 
per  riportare  lo  schermo  pulito  e  con  i  colori  di  base.  Esistono  due  altre 
funzioni  GRAPHICS  1  e  GRAPHICS  2  grazie  alle  quali  i  caratteri  battuti 
sono  allargati.  Così  si  ha: 

per  la  funzione  0  ---  24  linee  di  40  caratteri 

per  la  funzione  1  ---  20  linee  di  20  caratteri  +  4  linee  di  testo  normale 

per  la  funzione  2  —  10  linee  di  20  caratteri  4-  4  linee  di  testo  normale 


POSIZIONE  l,J 


J 
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La  funzione  POSITION  è  utilizzata  in  questi  nuovi  limiti,  per  posizionare 
la  stampa  che  si  ottiene  con  il  comando  PRINT  @  6  ;  seguito  dalla  variabi¬ 
le  (o  dalla  stringa  di  caratteri)  desiderata. 

Le  funzioni  grafiche  da  3  a  15  permettono  il  disegno  con  una  risoluzione 
più  o  meno  dettagliata  e  con  colori;  così  per  le  funzioni  da  3  a  8: 


definizione  (X,Y) 

colori 

funzione  3 

40  x  20 

4 

» 

4 

80  x  40 

2 

» 

5 

80  x  40 

4 

» 

6 

160  x  80 

2 

» 

7 

160  x  80 

4 

» 

8 

320  x  160 

1 

La  visualizzazione  di  un  punto  si  ottiene  fornendo  un  colore  con  il  coman¬ 
do  COLOR  e  posizionandolo  con  PLOT  X,Y 

Così  per  creare  un  punto  in  mezzo  allo  schermo  con  la  funzione  GRAP¬ 
HICS  6,  basterà  fare:  PLOT  80,40 


Il  colore  delle  visualizzazioni  è  determinato  da  SETCOLOR  R,  X,  X. 
L’ATARI  dispone  di  5  registri  R  (da  0  a  4)  che  contengono  la  gamma  dei 
colori  utilizzati  per  le  scritte  o  per  i  disegni. 

Il  registro  R  =  0  fornisce  il  colore  unicamente  con  funzione  grafica 

1  fornisce  il  colore  unicamente  del  testo  con  funzione  testo 

2  fornisce  il  colore  unicamente  del  fondo  con  funzione  testo 

3  fornisce  il  colore  unicamente  con  funzione  grafica 

4  fornisce  il  colore  dello  schermo 

Esempio:  per  avere  un  fondo  rosso  brillante,  basta  fare: 

SETCOLOR  2,3,10 

Il  primo  parametro  2  è  il  numero  del  registro  che  corrisponde  al  fondo. 

Il  secondo  parametro  3  è  il  numero  del  colore. 

Il  terzo  parametro  10  è  il  fattore  luminoso. 

N.B.  aggiungendo  16  al  numero  di  funzione  grafica,  si  lavora  su  tutto  lo 
schermo,  recuperando  le  4  linee  di  testo  che  rimangono. 

Così,  con  il  comando  GRAPHICS  2  +  16  otteniamo  dei  caratteri  allargati 
sulla  totalità  dello  schermo. 
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Un  dado 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  lancio  di  un  dado  (con  grafica). 
Difficoltà  del  gioco:  nessuna. 

IL  GIOCO:  Il  programma  propone  semplicemente  il  lancio  di  un 

dado  a  caso  e  la  sua  rappresentazione  grafica  in 
grande  formato. 

Potrà  essere  facilmente  utilizzato  come  sottopro¬ 
gramma  in  ogni  tipo  di  gioco  che  faccia  richiamo  al 
lancio  di  uno  o  più  dadi. 

IL  PROGRAMMA:  La  linea  50  utilizza  il  generatore  casuale  dell’ATARI 
per  estrarre  un  numero  da  1  a  6. 

Il  ciclo  J  (70-90)  disegna  i  bordi  del  dado,  le  linee  60  e 
100  disegnano  l’alto  e  il  basso 

Le  linee  120-170  vengono  utilizzate  per  il  disegno  dei 
punti. 

Le  linee  180  e  190  permettono  all’occorrenza  di  fare 
nuovamente  il  lancio. 

PER  GIOCARE:  Lanciare  il  programma  con  RUN. 

Si  inserisce  un  intero  per  inizializzare  il  generatore, 
e  si  visualizza  un  dado  colorato  di  grande  formato. 
Alla  domanda  ALTRO  LANCIO  (S/N)  si  risponde  S 
per  rilanciare  il  dado. 

ESTENSIONI  POSSIBILI:  Si  potrà  introdurre  una  piccola  musica  che 
renderà  più  gradevole  ogni  lancio,  fare  sfilare  i  punti 
come  se  il  dado  rotolasse  su  una  tavola,  ecc. 
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10  REM  UN  DADO 
20  DIM  R*<1> 

38  SETCOLOR  1 / 7, 2 - SETCOLOR  2, 13, 14 -SETCOLOR  4.13/14 
40  PRINT  ">" 

50  R=INT<RND<1)*6+1> 

60  POSITION  12/5-PRINT  “qrrrrrrrrrrre" -REM  battere  le  minuscole  schiacciando  si» 
ultaneamente  <COHTROL> 

70  FOR  J=0  TO  10 

80  POSITION  12/6+J‘PRINT  CHR*<124> • POSITION  24/6+J-PRINT  CHR*<124> 

30  NEXT  J 

100  POSITION  12/17-F'RINT  "zrrrrrrrrrrrc" -REM  vedere  60 
120  IF  flOl  THEN  POSITION  15/8-PRINT  CHRSC20) 

130  IF  ft>=4  THEN  POSITION  21 .8 -PRINT  CHR*<20> 

140  IF  fl=6  THEN  POSITION  15/ 11 -PRINT  CHR$<28) - POSITION  21/ 11 -PRINT  CHR*<20> 

150  IF  R/20INT<fl/2)  THEN  POSITION  18/ 11 -PRINT  CHR$<20> 

160  IF  H>=4  THEN  POSITION  15/14-PRINT  CHR*<20> 

170  IF  fi<> 1  THEN  POSITION  21 >  14 -PRINT  CHR*<20> 

180  POSITION  0/20 -PRINT  "Un'altro  lancio  <S.'N>" ;- INPUT  R# 

130  IF  R$="S"  THEN  40 
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Più  grande,  più  piccolo 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  gioco  di  deduzione  (un  solo  gio¬ 
catore). 

Difficoltà  del  gioco:  elevata. 

IL  GIOCO:  Si  ispira  a  un  principio  leggermente  differente  da 

quello  del  Mastermind;  si  tratta  ugualmente  di  indo¬ 
vinare  un  numero  (da  1  a  7  cifre),  ma  le  indicazioni  di 
cui  si  dispone  sono  questa  volta  da  una  parte  il  nu¬ 
mero  di  cifre  che,  nel  numero  provato,  sono  superio¬ 
ri  a  quelle  del  numero  da  indovinare,  e,  dall’altra 
parte,  il  numero  di  cifre  che  sono  inferiori.  Se,  per 
esempio,  il  numero  da  indovinare  è  3054  e  che  si  pro¬ 
vi  4251,  la  macchina  risponderà  2  più  grandi  (sono  il 
4  e  il  2),  e  1  più  piccolo  (è  l’I). 

IL  PROGRAMMA:  La  linea  60  proibisce  di  chiedere  dei  numeri  di  più  di 
8  cifre. 

Il  numero  da  indovinare  è  posizionato,  alla  linea  80, 
in  una  variabile  alfanumerica  X$. 

I  paragoni  col  numero  tentato  sono  fatti  alla  li¬ 
nea  130  (che  testa  se  si  è  indovinato),  e  nel  ciclo  I 
(150-180),  dove  si  fa  il  paragone  "lettera  per  lettera”. 
La  visualizzazione  del  risultato  è  realizzata  grazie  al¬ 
la  linea  190. 

II  contatore  del  numero  di  tentativi  è  alla  linea  200. 

PER  GIOCARE:  Il  lancio  del  programma  con  RUN  provoca  il  messag¬ 

gio  NUMERO  DI  CIFRE. 

Si  inserisce  un  numero  inferiore  a  8  e  si  batte  RE¬ 
TURN. 

Il  numero  di  tentativi  appare  così  come  la  domanda 
NUMERO  TENTATO;  si  risponde  inserendo  un  nu¬ 
mero,  seguito  da  RETURN. 

Il  risultato  è  allora  visualizzato  nella  maniera  >  e  < . 
Se  non  è  esatto,  si  ricomincia  (attenzione  ad  inserire 
unicamente  dei  numeri  aventi  tante  cifre  quante  il 
numero  da  indovinare). 

Se  si  indovina,  TATARI  scriverà  AVETE  TROVATO 
.  .  .  IN  .  .  .  PROVE. 

Poi  UN’ALTRA  PARTITA?  (S/N);  faremo  S  per  comin¬ 
ciare  una  nuova  partita. 

ESTENSIONI  POSSIBILI:  Potremmo,  come  per  il  Mastermind,  immagi¬ 
nare  un  gioco  analogo  con  delle  lettere,  dei  colori,  o 
anche  utilizzando  degli  altri  simbolismi. 

Si  può  anche  prevedere  di  far  giocare  TATARI  che 
avrà  allora  il  ruolo  di  decodificatore. 
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10  REM  PIU'  GRANDE,  PIU'  PICCOLO 
20  DIM  Xt<8> ,  P$<8> 

48  GRAPH I CS  0 

50  FRINÌ  "Numero  di  cifre  =  "  ;  ‘ INPUT  C 
60  IF  08  THEN  40 
70  E-l :F=1 

80  X*=STR$ < I NT  <  RND < 1 > *9AC+ 1 0A <  C-E  >  >  > 

100  POSITION  0,3:PRINT  "  Prova  No.  Numero  tentato  >  <  " 

110  POSITION  2,4=F0R  P=1  TO  36‘PRINT  CHR$<18); ; NEXT  P 

120  POSITION  6,F+4‘PRINT  E; "  "‘POSITION  13, F+4‘ INPUT  P t 

130  IF  P*=X$  THEN  220 

140  A=0  B=8 

150  FOR  1*1  TO  C 

16©  IF  P*<I,  I»X$<I,  I)  THEN  fi*A+l 
170  IF  P*OI,  IXX*<I,  I)  THEN  B*B+1 
1S0  HEXT  I 

130  POSITION  30, F+4‘ PRINT  Ai"  "iB 
208  E=E+1 : F=F+1 ‘ IF  F*18  THEN  F*1 
210  GOTO  120 

220  PRINT  : PR I NT  "Trovato  "ìX$ì"  in  "jEì"  prove." 

230  PRINT  ‘PRINT  "Un'altra  partita  <S/N)  "i< INPUT  X$ 

240  IF  Xf<l,l>="8"  THEN  40 
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Ordine 


RIFERIMENTI:  Programmazione:  di  media  difficoltà. 

Categoria  del  gioco:  gioco  di  riflessione. 

Difficoltà  del  gioco:  media. 

IL  GIOCO:  Le  10  prime  lettere  dell’alfabeto  appaiono  in  disordi¬ 

ne;  bisogna  riuscire  a  rimetterle  in  ordine,  col  minor 
numero  possibile  di  tentativi,  con  delle  permutazioni 
successive  di  due  delle  lettere;  ma  questo  ha  anche 
come  inconveniente  di  far  permutare  attorno  a  lei  le 
due  lettere  che  la  circondano,  secondo  il  meccanismo 
spiegato  qui  sotto: 


BADGHI  JCFE 
0123456789 

BADFHIJEGC 
0123456789 

IL  PROGRAMMA:  I  cicli  chiusi  I  (60-120)  e  J  (80-100)  definiscono  una  va¬ 
riabile  alfanumerica  A$,  contenente  le  10  prime  lette¬ 
re  dell’alfabeto  in  disordine. 

La  linea  140  visualizza  A$,  e  la  linea  150  visualizza  i 
numeri  delle  lettere  da  utilizzare  per  la  permutazione. 
Si  inserisce  la  permutazione  alla  linea  190. 

Le  linee  200  e  210  trasformano  la  variabile  alfanume¬ 
rica  inserita  in  una  variabile  numerica. 

La  linea  220  chiama  una  prima  volta  il  sottoprogram¬ 
ma  d’inversione. 

La  linea  250  chiama  una  seconda  volta  il  sottopro¬ 
gramma  d’inversione. 

La  linea  260  contabilizza  i  tentativi. 

La  linea  180  controlla  i  risultati. 

PER  GIOCARE:  Lanciare  il  programma  con  RUN. 

La  parola  iniziale  appare,  ogni  lettera  essendo  riferi¬ 
ta  ad  un  numero  da  1  a  9.  Alla  domanda  INVERSIO¬ 
NE  (I/J),  si  risponde  inserendo  un  numero  di  due  ci¬ 
fre  xy;  x  è  il  numero  della  prima  lettera  e  y  il  numero 
della  seconda.  Le  due  inversioni  sono  allora  effettua¬ 
te  in  successione  e  si  ricomincia. 

Il  numero  di  tentativi  apparirà  alla  fine  della  partita. 

ESTENSIONI  POSSIBILI:  Si  può  immaginare  un  gioco  contro  il  calcola¬ 
tore,  che  valuti  il  punteggio  del  giocatore  in  funzione 
delle  sue  capacità;  si  possono  anche  modificare  le  re¬ 
gole  che  gestiscono  le  permutazioni. 


:  permutazione  83 


:  risultato 
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10  REM  ORDINE 

20  DIM  R^::i0:>,B*a0>,N*a>,M*a>,R*<2> 

40  GRAPHICS  0 
50 

SO  POR  1=1  TO  10 

70  R$=CHR$ < I NT  <  RND <1  >  * 1 0+65  >  > 

75  IF  1=1  THEN  110 
80  FOR  J=1  TO  1-1 
30  IF  R*=fl$<J,J>  THEN  70 
100  NEXT  J 

110  ft$  <  LEN  <  > + 1 ) =R$ 

120  NEKT  I 
130  S=1 

140  POSITION  2/4‘PRINT  "Risultato  •■"/(« 

150  PRINT  "  0123456783" 

160  POSITION  2/3‘PRINT  "Prova  numero  "»$ 

170  POSITION  33/  12'PRINT  11 

1S0  IF  fW= " HBCDEFGH I J "  THEN  PRINT  "Riuscito  in  "ìSì "  mosse. “‘END 
130  POSITION  0/12‘PRINT  “Inversione  <1  e  J  con  forma  IJ>  "/‘INPUT  R* 
200  I=flSC<R$<l/ l>)-47 
210  J=fiSC<R*<2,2))-47 
220  GOSUB  500 

230  IF  R*<1/1>="0“  OR  R*<1/1>="9"  THEN  250 

24W  1=1-1 <J=I+2 

250  GOSUB  500 

260  S=S+1 

270  GOTO  140 

500  B*=““ 

510  FOR  T=1  TO  LEN<R*> 

528  IF  T=I  THEN  N$=fl*<T,T> 

530  IF  T=.J  THEN  M*=fi*<T/T> 

540  NEXT  T 

550  FOR  T=1  TO  LENCft$) 

560  IF  T=I  THEN  B*O.EN<B*>+1>=M*'GOTO  590 
570  IF  T=J  THEN  B$<LEN<B$)+1 >=N* 'GOTO  530 
580  B*<LEN<B*:>  +  l>=fl$<T/T> 

530  NEXT  T 
600  fi*=B* 

610  RETURN 
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RIFERIMENTI: 


IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


L’impiccato 


Programmazione:  di  media  difficoltà. 

Categoria  del  gioco:  gioco  di  lettere  (versione  a  2  gio¬ 
catori). 

Difficoltà  del  gioco:  media. 

Sarebbe  senz’altro  difficile  ritrovare  il  nome  dell'in¬ 
ventore  di  questo  gioco  che  esiste  da  tempo  immemo¬ 
rabile,  qualche  volta  praticato  sotto  forme  assai  dif¬ 
ferenti  (per  esempio,  ricostituire  un  maialino  lan¬ 
ciando  dei  dadi). 

L’apparizione  dei  giochi  su  micro-calcolatore  e  la  ma¬ 
gia  degli  schermi  video  gli  hanno  fatto  conoscere  un 
rinnovo  sicuro:  in  questa  versione,  uno  dei  giocatori 
deve  inserire  una  parola  di  lunghezza  qualunque.  Il 
calcolatore  visualizzerà  allora  dei  puntini  nella  posi¬ 
zione  delle  lettere  di  quella  parola  e  chiede  al  secon¬ 
do  giocatore  di  proporre  una  lettera.  Ogni  risposta 
corretta  fa  apparire  la  lettera  nella  sua  posizione 
esatta  nella  parola,  ed  ogni  risposta  sbagliata  fa  pro¬ 
gredire  il  disegno  del  patibolo. 

Per  vincere,  basta  riuscire  a  trovare  la  parola  scono¬ 
sciuta  prima  di  essere  impiccato. 

La  parola  da  indovinare  è  introdotta  all’inizio  del 
programma  (linea  30);  2  linee  di  DATA  (2000-2010) 
contengono  tutti  gli  elementi  del  disegno  sotto  forma 
di  elementi  grafici. 

Il  ciclo  I  (60-80)  fabbrica  una  parola  P$  che  contiene  i 
puntini  nella  posizione  di  ognuna  delle  lettere  della 
parola  iniziale. 

Il  ciclo  I  e  J  (120-140)  si  occupano  del  disegno  due  li¬ 
nee  per  due  (più  o  meno  completo,  secondo  il  valore 
di  P). 

Le  linee  150-160  visualizzano  il  risultato  e  arrestano 
il  gioco. 

La  lettera  provata  è  inserita  alla  linea  170  e  testata  in 
un  ciclo  I  (190-210);  il  sottoprogramma  300-320  rim¬ 
piazza  ogni  puntino  con  la  lettera  corrispondente. 

Dopo  il  lancio  del  programma  con  RUN,  uno  dei  gio¬ 
catori  deve  inserire  la  sua  parola  e  battere  RETURN. 
Dei  puntini  appaiono  nella  posizione  di  ognuna  delle 
lettere  della  parola;  e  la  domanda  LA  TUA  LETTERA 
appare  sullo  schermo;  l’altro  giocatore  risponde  allo¬ 
ra  proponendo  una  lettera  seguita  da  RETURN. 

Se  la  lettera  è  giusta,  rimpiazzerà  uno  o  più  puntini; 
altrimenti,  il  patibolo  comincerà  a  disegnarsi. 

La  parola  esatta  sarà  visualizzata  nel  caso  in  cui  si 
perda. 
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10  REM  L'IMPICCATO 

15  DIM  DS<7>,P*C20>,R*<20;>,S*a:>,B*<600> 

20  GRAPHICS  0 

25  SETCOLOR  1 , 7 , 2 = SETCOLOR  2, 13. 14'SETCOLOR  4,13,14 
30  PRINT  "La  tua  parola  INPUT  R* 

50  p*="" 

60  FOR  1=1  IO  LEN<R*> 

7ò  P*<LEN<P$>+1 
80  MEXT  I 
90  p=0 
35  PRINT  ">" 

1 00  POS I T I OH  2,3’ PR I NT  P* 

110  IF  P=0  THEN  150 
115  RESTORE 
120  FOR  1=1  TO  P 
125  FOR  J=1  TO  2 

130  POSITION  22 , 2* I J !  READ  D*> PRINT  D* 

135  NEXT  J 
140  NEXT  I 

150  IF  P$=R*  THEN  PRINT  "BRAVO ! “ ; END 
160  IF  P=7  THEN  PRINT  "PERSO!  La  parola  era  " > R$ ! END 
170  POSITION  2, 20 ; PRINT  "La  tua  lettera  ■ " i ■ INPUT  SS 
188  T=0 

130  FOR  1=1  TO  LEH(RS) 

20O  IF  R$<I, I>=S*  THEN  GOSUB  300 
210  NEXT  I 

220  IF  T <> 0  THEN  100 
230  P=P+1 
240  GOTO  100 
300  T=1 

310  P*<I,I>=S* 

320  RETURN 

2000  DATA  ,  qre  ,  srs,  !  !,  zwc,qrrsrre,  !  !  !,!  !  !,  fa,*  a 

2010  DATA  b  v,b  v,h  j,  , 

3008  REM  Per  i  DATA  battere  simultaneamente  la  lettera  minuscola  e  il  tasto  <CON 
TROL> 

3010  REM  nei  DATA  battere  <SHIFT>=  al  posto  del  punto  esclamativo  per  ottenere  u 
vi  tratto  verticale  Pieno 
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Briscola 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  media. 

Categoria  del  gioco:  gioco  con  le  carte. 

Difficoltà  del  gioco:  bassa. 

Il  gioco  proposto  è  piuttosto  una  simulazione,  realiz¬ 
zata  con  32  carte,  della  distribuzione  di  4  mazzetti  di 
5  carte.  Potrà  essere  utilizzato  per  lo  studio  di  pro¬ 
blemi  facenti  intervenire  delle  distribuzioni  di  20 
carte  su  32. 

Alla  linea  50,  si  crea  un  array  che  può  contenere  le  20 
carte. 

Il  ciclo  I  (80-140)  assicura  la  presa  casuale  di  20  nu¬ 
meri,  presi  da  32;  il  ciclo  J  (110-130)  verifica  che  non 
si  realizzi  due  volte  la  stessa  presa. 

Il  secondo  ciclo  I  (160-310)  assicura  in  seguito  la  vi¬ 
sualizzazione,  i  nomi  delle  carte  vengono  scritti  in 
chiaro  e  il  colore  viene  decodificato  e  visualizzato  in 
chiaro)  grazie  alle  linee  da  210  a  280. 

Basta  battere  RUN  per  ottenere  immediatamente 
l’apparizione  di  4  mazzetti  di  5  carte  ognuno  (una 
mano). 

Un  nuovo  RUN  permette  di  ottenere  una  nuova  di¬ 
stribuzione. 


ESTENSIONI  POSSIBILI:  Si  potrà  facilmente  mettere  a  punto  una  grafi¬ 
ca  migliore  ridefinendo  i  caratteri  dell'ATARI;  ci  si 
potrà  ugualmente  servire  di  questo  programma  come 
di  un  nucleo  per  la  messa  a  punto  di  programmi  di 
giochi  di  carte  su  calcolatore  (che  potrà,  se  necessa¬ 
rio,  servire  da  partner:  vedere  l’esempio  del  Poker,  in 
questo  stesso  libro). 
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10  REM  BRISCOLA 
20  GRAPHICS  0 

30  SETCOLOR  1, 12,2‘SETCOLOR  2,12.14 
40  PRINT  ">" 

50  DIH  A<20>,S$<2>,R*<4> 

60  K=1 

70  POSITION  5,11 = PRINT  “PAZIENTATE!  Mescolo  le  carte."; 
80  FOR  1=1  TO  20 
90  A<I>=1+INT<RND<1>*32> 

100  IF  1=1  THEN  140 

110  FOR  J=1  TO  1-1 

120  IF  Aa>=A<J>  THEN  90 

130  NEaT  J 

140  NEXT  I 

150  PRINT  ">" 

166  FOR  1=1  TO  20 
170  S$="QU" 

180  S=l+A<I>-8*IHT<A<I>/3> 

190  R$=STR$<3+6) :R$<LEN<R$)+1)="  " 

260  R$=R$<1,2> 

210  IF  S=5  THEN  R*="FA" 

220  IF  S=6  THEN  R$=“DO" 

230  IF  S=7  THEN  R$="RE" 

240  IF  S=8  THEN  R$="AS" 

25©  IF  fì(I)<=24  THEN  S*=“Fr' 

260  IF  A< I ) <=16  THEN  S$=,,PI" 

270  IF  FKI><=8  THEN  S$="CU" 

280  POSITION  2+10TINT<<I-l)/5>,2^£K  =  PRINT  R$;  "  ";S$ 

298  K=K+ 1 

300  IF  K=6  THEN  K=1 
310  NEaT  I 
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Taccuino  di  calcolo 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  media. 

Categoria  del  gioco:  riflessione  (2  giocatori). 
Difficoltà  del  gioco:  elevata. 

Si  pratica  con  due  giocatori,  uno  prende  il  ruolo  di 
codificatore,  l’altro  quello  di  decodificatore. 

Il  codificatore  parte  da  un  numero  (proposto  dall’A- 
TARI)  e  deve  trasformarlo  con  l’aiuto  di  5  operazioni 
che  sceglie  lui  stesso,  così  come  gli  operatori,  d’al¬ 
tronde. 

Il  risultato  che  ha  ottenuto  e  le  operazioni  che  ha  uti¬ 
lizzato  saranno  visualizzate  sullo  schermo;  il  decodi¬ 
ficatore  dovrà  allora  cercare  di  ritrovare  il  numero 
iniziale  effettuando  le  operazioni  in  senso  inverso. 

La  linea  50  permette  di  ottenere  l’intero  di  partenza 
compreso  tra  5  e  20. 

Un  ciclo  I  (110-200)  permette  di  inserire  successiva¬ 
mente  le  5  operazioni  salvaguardate  nella  stringa 
unica  R$. 

3  sottoprogrammi  sono  utilizzati  per  i  calcoli  (alle  li¬ 
nee  1000  e  3000). 

Dopo  ogni  calcolo,  il  risultato  è  visualizzato  (solo  il 
codificatore  dovrà  guardare  lo  schermo  durante  que¬ 
sta  operazione)  e  il  risultato  definitivo  resterà  visua¬ 
lizzato  per  il  decodificatore  alla  fine  dei  calcoli  (linea 
190). 

Le  linee  220-240  visualizzano  le  5  operazioni  utilizza¬ 
te,  così  come  gli  operatori  corrispondenti. 

Si  batte  RUN  per  lanciare  il  programma. 

Appare  il  numero  di  partenza,  poi  la  richiesta  INSE¬ 
RITE  5  OPERAZIONI;  si  dovranno  inserire  le  une  do¬ 
po  le  altre  nella  maniera,  per  esempio,  :  +4,  seguito 
da  RETURN. 

Il  risultato  sarà  visualizzato  dopo  ogni  operazione  in¬ 
serita.  Alla  fine,  le  operazioni  inserite  sono  tutte  vi¬ 
sualizzate  sulla  stessa  linea,  ed  il  messaggio  CORAG¬ 
GIO  è  inviato  all’attenzione  del  decodificatore  (non 
esiste  controllo  nella  decodifica). 


ESTENSIONI  POSSIBILI:  Si  potrà,  naturalmente,  pensare  di  migliorare 
la  parte  decodifica  del  programma  introducendo  dei 
controlli  sui  risultati;  si  può  anche  pensare  di  lasciar 
partecipare  maggiormente  TATARI  affidandogli  il 
ruolo  della  codifica,  ecc. 
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10  REM  TACCUINO  DI  CALCOLO 
20  DIM  R$<20) . C$<8> 

30  FRI NT  ">" 

40  SETCOLOR  1 . 9, 14 ‘ SETCOLOR  2-3.2 
SO  X=INT<RND<l>*16+5> 

60  PRINT  "Numero  iniziale  :  ;  X 
70  PRINT  "Inserite  5  operazioni" 

80  PRINT  "Con  la  forma  +5-  /2.  4:4  ..." 

30  F=K 

110  FOR  1=1  TO  5 

120  POS ITI OH  16- 6 = PRINT  " 

136  POSITION  2- 6= PRINT  "La  tua  operazione  INPUT  C$ 
135  Ct < LEN <  C$  >  + 1 >  =  "  " ‘R$<l+4*<I-l>.4*n=C$ 

1 40  A=HSC  >:  C$  <1  - 1  >  >  -4 1 

150  IF  A<=0  OR  A=3  OR  fl=5  OR  A>6  THEN  120 

160  IF  fì>3  THEN  A=<fì/2)+l 

170  OH  A  GOSUB  1000-2000-2000-3000 

160  POSITION  16- 10 -PRINT  " 

130  POSITION  2- 10:PRINT  "Numero  ottenuto  ■“} F 
20O  NEXT  I 

210  PRINT  " } “ ‘ PRINT  ‘PRINT  ‘PRINT  "Operazioni 

220  FOR  1=1  TO  5 

230  PRINT  R$a+4*<I-l),4*I>- "  "i 

240  NEXT  I 

258  PRINT  ‘PRINT  ‘PRINT  "Corauuio _ » 

266  END 

1 000  F=F*VAL  <  C$  < 2 - LEN  < C$  > ) ) 

1010  RETURN 
2000  F=F+VAL<Ct> 

2010  RETURN 

3000  F=F/VAL<Ct<2- LENCCt) ) > 

3010  RETURN 


108  102  programmi  per  ATARI 


Impiccato  inverso 


RIFERIMENTI:  Programmazione:  di  media  difficoltà. 

Categoria  del  gioco:  gioco  sulle  parole. 

Difficoltà  del  gioco:  bassa. 

IL  GIOCO:  L’Impiccato  è  un  gioco  di  lettere  molto  noto,  già  pre¬ 

sentato  d’altronde  in  questo  libro,  nel  quale  si  deve 
indovinare  una  parola  nascosta  dal  calcolatore  e  do¬ 
ve  ogni  lettera  non  scoperta  vi  porta  un  po’  più  vicini 
al  patibolo. 

Qui  è  TATARI  che  cercherà  di  indovinare  la  vostra 
parola,  ma  lui  gioca  un  po’  a  caso  e  non  possiede  la 
vostra  intuizione;  ci  vorranno  dunque,  in  regola  gene¬ 
rale,  molti  tentativi  per  scoprire  la  soluzione.  Per  au¬ 
mentare  le  sue  possibilità,  ci  appelliamo  a  una  for¬ 
mula  che  gli  permette  di  pescare  di  più  nelle  vocali, 
poi  nelle  consonanti  di  uso  comune  e  quindi  nelle 
consonanti  più  rare. 

IL  PROGRAMMA:  La  linea  50  permette  di  registrare,  in  una  variabile 
alfanumerica  D$,  le  lettere  dell’alfabeto,  nell’ordine: 
vocali,  consonanti  usuali,  altre  consonanti.  La  parola 
da  indovinare  è  introdotta  alla  linea  70.  Il  ciclo  I 
(90-120)  stampa  dei  puntini  nelle  posizioni  delle  lette¬ 
re  da  trovare. 

Il  ciclo  alla  linea  140  serve  unicamente  a  simulare  il 
tempo  di  ricerca  di  una  lettera. 

La  formula,  piazzata  alla  linea  1 50,  permette  di  modi¬ 
ficare  leggermente  la  probabilità  di  pesca,  in  favore 
delle  vocali  e  delle  consonanti  usuali. 

La  linea  170  provoca  una  nuova  pesca,  e  il  ciclo  I 
(210-240)  ristampa  i  puntini  e  le  lettere  trovate. 

La  linea  250  incrementa  il  contatore  dei  tentativi. 

La  linea  270  visualizza  il  numero  di  tentativi  realizza¬ 
ti,  alla  fine  della  partita. 

PER  GIOCARE:  Lanciare  il  programma  con  RUN. 

Inserire  la  parola  da  scoprire,  seguita  da  RETURN. 

I  puntini  sono  allora  visualizzati  (uno  per  lettera)  e 
TÀTARI  propone  una  prima  lettera,  guarda  se  va  be¬ 
ne  e  continua  automaticamente,  fino  a  che  avrà  tro¬ 
vato  la  parola.  Si  potrà  uscire  dal  programma  ad 
ogni  momento,  battendo  BREAK. 

ESTENSIONI  POSSIBILI:  Sarà  senz’altro  interessante,  per  i  bambini  di 
prevedere  una  versione  non  automatica  dove  il  gioca¬ 
tore  risponderebbe  SI  o  NO  per  ogni  lettera  proposta 
dall’ATÀRI;  si  potrà  anche  immaginare  di  aggiungere 
una  visualizzazione  grafica,  per  esempio  un  patibolo 
o  una  macchina  che  va  verso  un  burrone,  ecc. 
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10  REM  IMPICCATO  INVERSO 

30  DIM  D*<26>,E$<1>,R$<30>,T*<30> 

40  FRI NT  ">" 

50  0$=" YAE I GUBCDFGLMNPRSTVWHK JQXZ " 

60  0=141="" 

78  PRINT  " Immetti  la  parola  =  "  ;  = INPUT  R$ 

80  PRINT 

30  FOR  1=1  TO  LEN(R*> 

100  PQSITION  2+1, 5= PRINT 
110  T$(LEN<T$>+1 
120  NEXT  I 

130  POSITION  0,3= PRINT  "Cerco _ ;  prova  No  ";C; 

140  FOR  J=1  TO  100= NEXT  J 

150  X=6*<RND<1K0.?>+13*<RND<1><0.5>+7*<RND<1><0.4:> 

160  X=  I NT  <  X*RND  <  1  ) + 1  ) 

170  IF  D*<X,X>="-"  THEN  150 
ISO  E*=D*<X,X> 

190  D$<X,X>="~" 

200  POSITION  0.13= PRINT  "Prendo  = "jE$; 

210  FOR  1=1  TO  LEN<R$> 

220  IF  R$< I , I )=E$  THEN  T$<I, I>=E* 

230  POSITION  2+1, 5= PRINT  Tf<I,I>; 

240  NEXT  I 
250  C=C+1 

260  IF  T$OR$  THEN  130 

270  POSITION  8, 17  =  PRINT  "TROVATO  in  ";C-1;"  Prove."; 

280  FOR  T=255  TO  0  STEP  -1= SOUND  0,T, 10, T-4#INT<T/4) >NEXT  T 
290  SOUND  0,0, 0,0 
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Nicomat 


RIFERIMENTI: 


IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  di  media  difficoltà. 

Categoria  del  gioco:  gioco  di  riflessione  (calcolo  men¬ 
tale). 

Difficoltà  del  gioco:  media. 

Utilizza  una  proprietà  un  po’  particolare  degli  interi 
da  1  a  100  che  possono  essere  identificati  senza  ambi¬ 
guità  dai  loro  resti  nelle  divisioni  per  3,  5  e  7. 

Il  programma,  proposto  qui,  è  un  programma  codifi¬ 
catore  che  visualizza  semplicemente  i  resti  di  un  in¬ 
tero  dato  N  nelle  divisioni  indicate. 

Il  gioco  consiste  nel  cercare  di  scoprire  l’intero  (ma, 
in  questa  versione,  avrete  diritto  ad  un  solo  tentati¬ 
vo). 

La  linea  50  permette  di  creare  l’intero. 

Il  ciclo  I  (80-130)  calcola  i  tre  resti  successivi,  ed  il 
ciclo  chiuso  J  (100-120)  permette  di  farli  apparire  in 
una  forma  assai  evidente,  nelle  giuste  locazioni. 

Le  linee  60  e  70  sono  lì  per  indicare  di  quale  divisione 
si  tratta. 

Il  numero  proposto  dal  giocatore  è  inserito  alla  linea 
140;  è  visualizzato  e  testato  alle  linee  150  e  160  (mes¬ 
saggio  di  fine  partita  :  BRAVO  o  PERSO). 

Le  linee  180-190  si  occupano  di  gestire  la  prossima 
partita,  secondo  la  risposta  del  giocatore. 

Si  lancia  il  programma  battendo  RUN. 

I  tre  resti  saranno  allora  visualizzati  sulla'  stessa  li¬ 
nea,  simbolizzati  con  dei  cuori  (l’assenza  di  cuori  si¬ 
gnifica:  resto  0). 

Alla  domanda  LA  TUA  RISPOSTA  ,  si  risponderà  con 
un  intero  tra  0  e  100,  seguito  da  RETURN. 

Si  otterrà  in  risposta  un  messaggio  PERSO  o  BRA¬ 
VO,  poi  la  domanda  LA  STESSA  O  UN’ALTRA  PAR¬ 
TITA?  (S/N).  Per  fare  un  nuovo  tentativo,  si  risponde¬ 
rà  S  seguiti  da  RETURN. 


ESTENSIONI  POSSIBILI:  Si  può  immaginare  di  realizzare  il  programma 
decodificatore  (si  danno  i  resti  e  TATARI  dovrà  darvi 
N)  e  cercare  se  la  proprietà  può  essere  estesa  (effet¬ 
tuando  altre  divisioni,  per  esempio). 
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10  REM  NI COURT 
2tf  GRAPHICS  0 
30  DIM  R*<1> 

40  PRIMI'  ">" 

5ò  ;:= i mt ■; rnd a  >*100+1  > 

b0  PRINT  "  Resto  della  divisione  per'" 

70  POSITIGN  12; 5 ' PRINT  “3" 'POSITION  20;5=PRINT  "5" 'POSITIOM  28;5'PRIHT  "7" 
80  FOR  1=1  TO  3 
30  H=X-<2*I+1>*INT<X/<2*I+1>> 

35  IF  H=0  THEN  130 

100  FOR  J=1  TO  fì 

110  POSITION  J+8TI+3; 7'PRINT 

120  NEXT  J 

130  NEXT  I 

140  POSITION  2; 10 'PRINT  "La  tua  risposta  '  "  ;  1 INPUT  N 
150  IF  N=X  THEN  PRINT  'PRINT  "BRAVO! “ 

160  IF  NOX  THEN  PRINT  'PRINT  "PERSO!" 

170  FOR  T=120  TO  10'SOUND  0,T, 10,4'NEXT  T'SOUND  0,0;0;0 
180  PRINT  'PRINT  "Un'altra  partita  <S/H>  "> ' INPUT  R$ 

130  IF  R$="S"  THEN  40 
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Corsa  di  cavalli 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  di  media  difficoltà. 

Categoria  del  gioco:  fortuna  (vari  giocatori). 
Difficoltà  del  gioco:  nessuna. 

Si  inserirà  un  numero  di  cavalli  compreso  tra  1  e  9  e 
la  corsa  comincerà  immediatamente. 

Ci  potranno  essere  dei  pareggi,  poiché  si  terrà  conto 
del  fatto  che  TATARI  fa  avanzare  i  cavalli  gli  uni  do¬ 
po  gli  altri,  cominciando  col  numero  1;  la  classifica 
sarà  visualizzata  man  mano,  secondo  gli  arrivi  (e  te¬ 
nendo  conto  dei  pareggi). 

Un  primo  ciclo  non  formale  (80-173)  visualizza  i  ca¬ 
valli  nella  loro  posizione  di  partenza. 

Un  secondo  ciclo  I  (100-180),  li  farà  avanzare;  la  posi¬ 
zione  di  ogni  cavallo  sarà  individuata  con  una  cifra  o 
una  lettera  in  una  variabile  alfanumerica  A$. 

La  linea  120  farà  avanzare  i  cavalli. 

La  linea  140  genera  gli  arrivi. 

La  linea  150  realizza  le  stampe. 

Il  sottoprogramma  240-280  fa  avanzare  il  contatore 
di  arrivi,  e  stampa  i  risultati. 

Si  lancia  il  programma  con  RUN. 

Alla  domanda  NUMERO  DI  CAVALLI?:  si  risponde 
con  un  intero  da  1  a  9,  seguito  da  RETURN. 

La  corsa  si  svolgerà  in  seguito  automaticamente. 


ESTENSIONI  POSSIBILI:  Potremmo  disegnare  i  cavalli  con  una  grafica 
più  curata  e  differenziarli  con  dei  numeri. 

Potremmo  anche  immaginare  un  sistema  di  scom¬ 
messe,  che  interverrà  prima  della  partenza  di  ogni 
corsa. 
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10  REM  CORSO  DI  CAVALLI 
20  DIA  A*<9>.B*<1> 

30  SETCOLOR  1 . 1 . 2 - SETCOLOR  2.12,6 
40  PRINT 

50  PRINT  "Numero  di  cavalli  >  ‘ INPUT  N'IF  N>9  THEN  40 

6w  A$=“" :P=0‘A=0‘T=l ‘K=0 
70  J=T 

80  A$<LEN<A$)+1 >="0" ‘ I=J 

90  GOTO  150 

100  FOR  1=1  TO  N 

110  IF  ft$<.  I  ,  I  >="K"  THEN  180 

120  B*=CHR$<ASC<A$<I. I>>+INT<RND< 0*4+1)) 

130  A$<I, I>=B* 

148  IF  B*>="K"  THEN  GOSUB  240 

150  POSITION  ASCCAfd.  I> >-46, 2*1+3 ‘PRINT  "  ‘PRINT  I 

160  SOUND  1.123,5,4*<I=3*INT<I/3>> 

170  IF  KO0  THEN  180 

173  J=J+1‘IF  J <=N  THEN  80 

176  K=1  GOTO  100 

180  NEXT  I 

190  P=P+T 

200  T=0 

210  IF  fl<N  THEN  100 

228  FOR  1=1  TO  3 ‘READ  VA ‘SOUND  0. VA. 10. 4 ‘FOR  T=1  TO  20‘NEXT  T ‘ NEKT  I 
230  POSITION  0.21 ‘END 
240  A*a.I>  =  "K" 

250  POSITION  0. 2*1+3 ‘PRINT  P 

260  T=1 

270  A=A+T 

280  RETURN 

1000  DATA  126.81.96 
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Attraverso 


RIFERIMENTI: 

IL  GIOCO: 


Programmazione:  di  media  difficoltà. 

Categoria  del  gioco:  riflessione  (2  giocatori). 
Difficoltà  del  gioco:  media. 

Sullo  schermo  appare  un  quadrato  di  9  caselle  con  let¬ 
tere  sul  bordo  verticale  e  cifre  sul  bordo  orizzontale. 
Uno  dei  giocatori  manipola  le  cifre,  l’altro  le  lettere. 
Tre  spostamenti  sono  possibili  per  le  cifre,  e  altri  3 
per  le  lettere.  Le  lettere  possono  spostarsi  verso  l’al¬ 
to,  a  destra  e  a  sinistra,  e  le  cifre  verso  la  destra,  in 
alto  o  in  basso. 

Il  vincitore  è  il  primo  che  riesce  a  fare  uscire  tutti  i 
suoi  simboli  (le  lettere  escono  in  alto,  le  cifre  a  de¬ 
stra). 

Non  ci  sono  prese,  e  i  salti  non  sono  autorizzati;  non  ci 
si  può  neanche  posizionare  su  una  casella  già  occupata. 


CIFRE 


LETTERE  0 


N 

i — »-E 


IL  PROGRAMMA:  Le  posizioni  delle  cifre  e  delle  lettere  sono  registrate 
in  un  array  N  (5,5);  Le  linee  da  10  a  70  definiscono  i 
valori  di  partenza,  utilizzando  gli  indici  0  e  5  per  i 
bordi. 

Le  linee  da  90  a  140  definiscono  il  tavolo  di  gioco  e  le 
linee  da  160  a  167  visualizzano  il  giocatore  in  gioco. 
La  linea  190-195  controllano  il  colpo  giocato,  così  co¬ 
me  i  cicli  I  e  J  (200-240),  ed  il  cambiamento  di  gioca¬ 
tore  è  assicurato  dalla  linea  330. 

PER  GIOCARE:  Il  tavolo  di  gioco  apparirà  dopo  aver  battuto  RUN,  e 

il  calcolatore  aspetta  la  mossa  del  giocatore  indivi¬ 
duato. 

Si  inserirà  prima  la  cifra  o  la  lettera  rappresentante 
la  pedina  da  spostare,  seguita  da  una  indicazione  di 
direzione  nella  forma  N  (per  Nord),  S  (per  Sud),  E 
(per  Est),  O  (per  Ovest). 

Si  potrà  così  fare  2E  seguito  da  RETURN. 

Se  la  mossa  non  è  valida,  non  sarà  eseguita,  ed  il  co¬ 
dice  del  giocatore  rimarrà  alla  visualizzazione;  se  è 
valida,  lo  spostamento  sarà  effettuato,  e  si  otterrà  il 
messaggio  corrispondente  al  secondo  giocatore. 

Il  primo  che  riuscirà  a  far  sparire  le  sue  3  pedine 
avrà  vinto. 

ESTENSIONI  POSSIBILI:  Si  può  immaginare  di  estendere  il  gioco  con 
più  cifre  e  lettere  e  di  migliorare  i  controlli.  Si  può 
anche  definire  una  strategia  per  TATARI. 
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10  REM  ATTRAVERSO 
20  DIM  N<5,5>,R*<6>=K=1 
30  FGR  1=0  TO  5 
35  FGR  J=8  TO  5 
40  N< I ,  J>=0 

45  IF  J=1  THEN  H< I , J>=ASC< "0" >+I 

50  IF  1=4  THEN  N< I / J)=ASC< “?" )+J 

55  IF  1=0  OR  1=5  OR  J=0  OR  1=5  THEN  H<I, J>=1 

60  NEXT  J 

65  NEXT  I 

70  N<4, 1 >=0 

SO  GRAPHICS  2 

30  FGR  U=1  TO  4 

100  FGR  V=1  TO  4 

110  REM 

120  POSITI OH  240, 24V-2 : FRI NT  #6;CHR*<46*<N(V,U>=0>+1KV,U>> 

130  NEXT  V 
140  NEXT  U 

160  POS ITI OH  1,9  PRINT  #6; "LE  "  ; : IF  K=0  THEN  PRINT  #6, "LETTERE"; 

165  IF  KO0  THEN  PRINT  #6;  "CIFRE" ; 

167  PRINT  #6;“  GIOCANO"; 

180  PRINT  "ì" ‘PRINT  “La  tua  mossa  <N,S,E,0>"; : INPUT  R$‘R*<LEN<R*>+1>=" 

130  IF  <K=1  AND  R$<2, 2)="0" >  OR  <K=0  AND  R$<2,2>="S">  THEN  180 

195  RS=A3C<R$<  1 , 1 >  >  ;  IF  < K=0 ')%<■. AS-52 >  « K=  1  > * < AS-64 >  THEN  180 

280  FOR  1=1  TO  4 

210  FOR  J=1  TO  4 

220  IF  N<I,J>=AS  THEN  260 

230  NEXT  J 

240  NEXT  I 

250  GOTO  180 

260  R= I 1 B=J 

270  I=I+<R*<2,2>="S">-<R*<2,2>="N"> 

280  J=J+<R$<2, 2)="E" >-<R$ <2, 2)="0" > 

290  IF  <1=0  AND  K=0>  OR  <J>4  AND  K=l)  THEN  320 
300  IF  N<I,J><>0  THEN  180 
310  N< I , J)=ASC<Rt> 

320  N<A,8';=0 
330  K=A6S<K-1> 

340  GOTO  80 
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RIFERIMENTI: 

IL  GIOCO: 

IL  PROGRAMMA: 


PER  GIOCARE: 


Mastermind 


Programmazione:  difficile. 

Categoria  del  gioco:  logica  (un  solo  giocatore). 
Difficoltà  del  gioco:  elevata. 

Diventato  un  grande  classico  dei  giochi  su  personal 
computer,  questo  gioco  sviluppa  il  ragionamento  de¬ 
duttivo;  bisogna  riuscire  a  trovare  il  più  velocemente 
possibile  un  numero  di  n  cifre  (potremo  prendere  n 
compreso  tra  1  e  6),  disponendo  ad  ogni  tentativo  di 
informazioni. 

Infatti,  TATARI  risponderà  indicando  da  una  parte  il 
numero  di  cifre  che  sono,  nel  numero  proposto,  esat¬ 
tamente  nella  stessa  posizione  che  nel  numero  da 
scoprire,  e,  dall’altra  parte,  il  numero  di  cifre  che  fi¬ 
gurano  nel  numero  da  scoprire  senza  essere  esatta¬ 
mente  nel  posto  giusto. 

La  scelta  del  numero  di  cifre  del  numero  da  scoprire 
è  effettuata  alle  linee  40  e  50. 

Il  numero  è  creato  alla  linea  60  (potranno  esserci  del¬ 
le  cifre  ripetute). 

La  visualizzazione  è  preparata  dalla  linea  90.  La  linea 
110  effettua  la  scelta  pulendo  per  precauzione  la  li¬ 
nea  visualizzata  sullo  schermo. 

La  linea  130  si  occupa  della  fine  della  partita. 

Un  primo  ciclo  I  (140-230)  testa  le  cifre  che  sono  nel 
posto  giusto. 

Un  secondo  ciclo  J  (160-260)  testa  le  cifre  che  sono 
presenti  e  mal  posizionate. 

I  contatori  sono  alle  linee  200  e  220. 

La  linea  240  visualizza  il  risultato,  e  la  linea  250  con¬ 
tabilizza  i  tentativi. 

Si  batte  RUN  e  si  sceglie  la  lunghezza  del  numero  de¬ 
siderato  (da  1  a  6),  seguita  da  RETURN. 

Dopo  il  messaggio  N.  NUMERO  GIUSTO  POSIZIONE 
G.,  si  introduce  il  proprio  tentativo,  seguito  da  RE¬ 
TURN. 

Si  ottiene  immediatamente  la  risposta  (in  caso  di 
doppia  cifra,  i  risultati  possono  essere  un  po’  delicati 
da  interpretare). 

Si  introduce  in  seguito  un  nuovo  tentativo,  e  così  via. 
Quando  si  trova,  si  otterrà  il  messaggio:  TROVATO 
IN  .  .  .  PROVE. 

Si  può  uscire  dal  programma  in  ogni  momento  con 
BREAK. 


102  programmi  per  ATARI  117 


ESTENSIONI  POSSIBILI:  Si  può  cercare  di  evitare  la  presenza  di  cifre 
doppie  nel  numero  da  trovare,  si  può  anche  prevede¬ 
re  un  cambiamento  automatico  di  pagina,  un  richia¬ 
mo  dei  risultati  precedenti;  potremo  anche  realizzare 
dei  giochi  analoghi  con  delle  parole,  o  altri  simboli 
(colori,  forme...) 


10  REM  MASTERMIND 
29  DIM  X*<6>.E*<6> 

40  FRI NT  " } " : PRINT  "Quante  cifre  INPUT  N 
50  IF  N>6  THEN  40 

60  E=1  = F=1  > X*=STR*< INT<RND<  1  >*9AN+10''<N-1  ))) 

80  PRIMI  ”>" 

90  PRINT  "  Nu.  NUMERO  GIUSTO  POSIZIONE" 

100  POR  1=1  TO  37  PRINT  CHR*< 18) ; ■ NEXT  I 

110  POSITION  2, 3+f • PRINT  E ; “  POSITION  12.3+F 

:  INPUT  Et 

115  IF  LEtKEOON  THEN  110 
120  X=0 • Y=X 

130  IF  Et=X$  THEN  PRINT  "TROVATO  in  "jEì "  prove." 

135  IF  E*=X*  THEN  FOR  1=1  TO  3 ! READ  VA : SOUND  0.VR. 10.4=FOR  T=1  TO  15= NEXT  T : NEXT 
1  •  END 

140  FOR  1=1  TO  N 

150  IF  X$< I . I )=E*< 1/ I )  THEN  220 

160  FOR  J=1  TO  N 

170  IF  JOI  AND  X$O.I>=E*CJ.J>  THEN  200 

130  NEXT  J 

190  GOTO  230 

200  Y=Y+1 

210  GOTO  230 

220  X=X+1 

230  NEXT  I 

240  POSITION  25. 3+F : PRINT  Xi"  "> Y 

250  E=E+1 : F=F+1 : IF  F=18  THEN  F=1 
260  GOTO  110 
500  DATA  126. 81. .96 
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RIFERIMENTI: 


IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Idem 


Programmazione:  di  media  difficoltà. 

Categoria  del  gioco:  gioco  di  calcolo  mentale  (2  gioca¬ 
tori). 

Difficoltà  del  gioco:  secondo  il  livello  scelto. 

L'ATARI  sceglie  un  numero  n  di  cifre  (secondo  il  li¬ 
vello  di  difficoltà  indicato  all’inizio).  Questo  numero 
(lo  stesso  all'inizio  per  i  2  giocatori)  sarà  regolarmen¬ 
te  decrementato,  ad  ogni  giro,  di  una  quantità  ugual¬ 
mente  scelta  a  caso  dall’ATARI  all’inizio  del  gioco; 
voi  dovete,  ad  ogni  colpo,  scegliere  una  colonna  (le 
decine,  le  centinaia,  ecc.)  ed  aggiungere  in  questa  co¬ 
lonna  un  certo  intero;  lo  scopo  è  di  riuscire  ad  otte¬ 
nere  ad  un  certo  momento  la  visualizzazione  di  un 
numero  avente  tutte  le  cifre  identiche. 

Ogni  risultato  sarà  visualizzato  un  breve  istante,  do¬ 
po  di  che  la  mano  passerà  al  giocatore  seguente,  che 
ripartirà  dal  suo  risultato  precedente. 

Una  variabile  numerica  N  è  dimensionata  a  2  alla  li¬ 
nea  40,  per  contenere  i  risultati  successivi  di  due  gio¬ 
catori. 

La  linea  50  permetterà  di  inserire  il  livello  di  difficol¬ 
tà  scelto. 

Il  numero  iniziale  è  creato  dalla  linea  70.  La  quantità 
che  interverrà  nel  decremento  è  ottenuta  alla  li¬ 
nea  90. 

La  linea  120  testa  se  il  risultato  non  è  troppo  piccolo. 
La  linea  130  visualizza  il  numero  del  giocatore. 

Il  numero  è  visualizzato  alla  linea  140  e  il  gioco  del 
giocatore  è  inserito  alla  linea  160  (numero  di  due  ci¬ 
fre). 

La  linea  170  incrementa  la  colonna  scelta,  e  la  linea 
180  decrementa  il  numero  della  quantità  scelta  in 
partenza. 

Il  risultato  sarà  visualizzato  un  breve  istante  (li¬ 
nea  210).  Il  ciclo  I  (260-280)  permette  di  verificare  se 
tutte  le  cifre  sono  identiche. 

La  stampa  e  la  fine  della  partita  sono  effettuate  alla 
linea  290.  Le  linee  300  e  310  si  occupano  del  cambia¬ 
mento  del  giocatore. 

Lanciare  l’esecuzione  del  programma  con  RUN. 

Il  numero  iniziale  sarà  visualizzato  per  il  giocatore  n. 
1,  che  gioca  battendo  xy,  seguito  da  RETURN;  x  è  la 
cifra  da  aggiungere,  e  y  è  il  numero  della  colonna  do¬ 
ve  bisogna  aggiungerla. 
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Il  risultato  (provvisorio  se  è  troppo  piccolo)  sarà  allo¬ 
ra  visualizzato  per  un  breve  istante,  e  la  linea  passa 
al  secondo  giocatore,  e  così  via.  Si  può  fermare  in 
ogni  momento  il  programma  battendo  BREAK. 

ESTENSIONI  POSSIBILI:  Si  potrà  estendere  il  gioco  a  più  di  2  giocatori, 
migliorare  la  scelta  del  numero  che  interviene  nella 
decrementazione,  migliorare  i  diversi  controlli,  la¬ 
sciare  i  differenti  risultati  visualizzati,  ecc. 


1@  REM  IDEM 
20  DIM  R*<2> 

30  REM 

40  PRIMI'  ">" 'H=l  DIM  N<2> 

56  FRI NT  "Livello  <2-7 >  INPUT  N 
6w  U-10  P=0 

70  N  O  )  =  I  NT  <  <  U  N-U''  <  N- 1  >  >  *RND  < 1 >  +UA  <  N- 1 >  > 

SO  N(2>=N< 1 > 

00  H=1  NT  <  24LT"  <N-1)  -TRUCK 1  )  +UA  <  N- 1  >  > 

100  IF  H-l  THEN  P=P+1 
110  FRI NT 

120  IF  H(HXUA(H-1)  THEN  N<H)=U'N-ABS<N<H> > 

130  POS  ITI 0N  0,3 ‘FRI NT  "Giocatore  “iH;"  Prova  ";P 

140  POS I T 1 0N  0,6 ‘PRINT  "Numero  '"'P0SITI0N  16~N,6PRINT  N<H) 

150  POS ITI 0N  9 ,  7 :  F‘R  I NT  "lllllll  " 

155  POS ITI 0N  9, 8 ‘PRINT  "7654321  “ 

160  POS  ITI 0N  0,10 ‘PRINT  "Il  tuo  aioeo  <N  e  C  con  Forma  NO  "i 'INPUT  R* 

165  IF  VBL(Rt<2.'  2)  »N  THEN  160 
1 70  N < H >  =N < H >  +VAL <R»<1 ,  l >  )*U/v<VflL<R*<2»  2) )-i ) 

ISO  N<H)=N<H>-R 

190  IF  N<H»U'  N  THEN  N<H>=N<H>-U'SN 
200  N<H)=INT <N<H> > 

210  P0S1TI0N  0,13‘PRINT  "Risultato  ' 'PRINT  M<H>; 

220  RESTORE  'FOR  1  =  1  T0  3 ‘ REFlD  V'SOUND  0,V, 10,4‘FOR  T=1  T0  13 'NEXT  T  =  NEXT  I'SOUN 

D  0,0, 0,0 

230  FOR  J=1  T0  1200 'NEXT  J 
240  R*=STR*<N<H>> 

260  FOR  1=1  T0  LEN<R$)-1 

265  IF  LEM<R*>=1  THEN  300 

270  IF  R*<I,  I)OR*a  +  l,  I  +  l>  THEN  300 

280  NEXT  I 

230  P0SITI0N  0, 16 'PRINT  “BRAVO!  Giocatore  “iH 

235  FOR  1=1  T0  3 ■ READ  V'SOUND  0,V,10,4>FOR  T=1  T0  15‘NEXT  T ■ NEXT  I'ENO 
30O  H=H+1 

310  IF  H>=3  THEN  H=1 
32Ò  GOTO  100 

1000  DATA  126,108,96,126,81,96 
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Orologio 


RIFERIMENTI:  Programmazione:  difficile. 

Categoria  del  gioco:  disegno. 

Difficoltà  del  gioco:  nessuna. 

IL  GIOCO:  Trasformate  il  vostro  televisore  in  orologio  numerico 

a  visualizzazione  in  grande  formato,  grazie  a  questo 
programma  che  vi  permetterà  di  animare  una  vetri¬ 
na,  di  fare  un  orologio  di  fantasia,  e  che  potrà  pre¬ 
starsi  a  molti  altri  usi. 


IL  PROGRAMMA:  La  linea  30  vi  permetterà  di  inserire  l’ora  sotto  for¬ 
ma  di  un  intero  di  4  cifre  (per  esempio:  1024  significa 
ore  10  24  minuti). 

La  linea  35  cancella  il  cursore. 

Le  linee  80-170  realizzano  il  disegno,  scalando  la 
stampa  man  mano  (con  l’aiuto  della  variabile  K,  in¬ 
crementata  alla  linea  160). 

Le  linee  da  180  a  220  assicurano  la  progressione  del¬ 
l’ora. 

Le  linee  da  230  a  290  effettuano  la  visualizzazione  dei 
due  punti  lampeggianti  per  i  secondi. 

PER  GIOCARE:  Subito  dopo  il  lancio  con  RUN,  il  programma  si  met¬ 

te  in  attesa  dell’ora;  si  batte  e  si  attende  il  "top”  per 
battere  RETURN. 

L’ora  appare  molto  rapidamente  e  l’orologio  è  in 
marcia.  Per  fermarlo,  bisognerà  battere  BREAK. 
L’ora  sarà  inserita  sotto  forma  di  un  intero  avente 
imperativamente  4  cifre,  per  le  ore  5  e  6  minuti,  si 
dovrà  battere  0506  seguito  da  RETURN. 

ESTENSIONI  POSSIBILI:  Sarà  interessante  modificare  il  programma 
per  fare  una  sveglia,  con  la  suoneria;  si  può  anche 
migliorare  la  grafica  ,  introdurre  il  colore. 
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10  REM  OROLOGIO 
15  Diti  fl$<7> 

20  GRAPHICS  0 ; SETCOLOR  1 , 3, 2 ‘ SETCOLOR  2,8, 10 ‘SETCOLOR  4,8,10 
30  FRI NT  “Ora  <con  forma  XXXX)  : INPUT  H$ 

35  POKE  752,1 
40  PRINT  ">" 

50  K=1 

60  A=VALCA$(K,K)> 

70  IF  BOI  AND  fi 04  THEN  POSITIOH  6*K+3, 1  -PRINT  CHR* <  1 60 > ; CHR$ <  1 60>  ; CHR* <  1 60 ' 

80  FOR  J=1  TO  5 

80  IF  fi— 0  OR  < fi> 3  AND  fi 07)  THEN  POSITION  6*K+3,J‘ PRINT  CHR$<160> 

100  IF  FIO 5  AND  fi 06  THEN  POSITION  64K+5,  J :  PRINT  CHR$<160> 

110  IF  fi— O  OR  fi=2  OR  ft=6  OR  fi=8  THEN  POSITION  6*K+3,J+4 'PRINT  CHR$Ob0> 

120  IF  fi 02  THEN  POSITION  6*K+5,J+4‘ PRINT  CHR$<160> 

130  NEXT  J 

140  IF  fi>l  THEN  POSITION  6*K+4,5‘PRINT  CHR*<160>;CHR*<160> 

150  IF  AOl  AND  fi 04  AND  807  THEN  POSITION  6*K+3,3‘PRINT  CHR* <  1 60 > , CHR* <  1 60 > , OH 
Rt< 160) 

160  K=K+ 1 

170  IF  K <5  THEN  60 
180  fi=l+VfiL(flT) 

130  IF  fi=2360  THEN  fi=0 
208  fi*="000" ;fi*<4)=STR$<fl> 

2 1 0  fi*=fi* < LEN < fif >-3 , LEN < fi» > > 

220  IF  A#<3,4>="60“  THEN  fi$< 1 ,2>=STR*<VftL<fl$<l , 2>>+l > ‘fif <3,4)=“00“ 

230  H=1 

248  FOR  J=1  TO  128 
250  FOR  1=1  TO  24 

260  POSITION  13,5‘IF  HOl  THEN  PRINT  “‘"‘GOTO  270 
265  PRINT  "  " 

270  NEXT  I 
288  H=fiBS<H-l) 

230  NEXT  J 

308  SOUND  0, 133, 10, 4= FOR  TE=1  TO  20 'NEXT  TE ‘GOTO  40 
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Regine  sulla  scacchiera 


RIFERIMENTI:  Programmazione:  difficile. 

Categoria  del  gioco:  riflessione. 

Difficoltà  del  gioco:  elevata. 

IL  GIOCO:  Il  gioco  utilizza  un  algoritmo  molto  potente  per  risol¬ 

vere  un  problema  che  ha  dato  filo  da  torcere  a  ricer¬ 
catori,  anche  celebri  come  il  matematico  GAUSS,  che 
non  è  riuscito  a  scoprire  tutte  le  soluzioni.  Si  tratta 
di  trovare  tutte  le  maniere  di  disporre  delle  regine  su 
una  scacchiera,  in  modo  tale  che  nessuna  possa  man¬ 
giarne  un’altra.  Il  programma  è  molto  elastico,  visto 
che  disponete  anche  della  possibilità  di  scegliere  la 
dimensione  della  scacchiera,  e  i  risultati  saranno  vi¬ 
sualizzati  sia  in  forma  grafica  che  numerica. 

IL  PROGRAMMA:  La  linea  30  vi  permette  di  scegliere  la  dimensione 
della  scacchiera. 

Una  variabile  D  sarà  dimensionata  di  conseguenza, 
alla  linea  40  e  rimessa  a  zero. 

Un  ciclo  di  esplorazione  principale  I  (50-1 10)  contiene 
un  sottociclo  J  (80-100)  che  realizza  il  controllo  di 
non  allineamento  (linea  90). 

Se,  nel  corso  dell’esplorazione,  si  trova  un  allinea¬ 
mento,  si  torna  indietro,  utilizzando  le  linee  da  230  a 
270  e  si  ricomincia. 

Il  ciclo  F  (130-210)  garantisce  la  stampa  della  scac¬ 
chiera,  ed  il  ciclo  K  (160-180),  che  potremo  eventual¬ 
mente  sopprimere,  assicura  la  stampa  del  risultato 
sotto  forma  di  un  codice  numerico  corrispondente  al¬ 
la  posizione  delle  pedine  in  ogni  colonna. 

La  linea  220  permette  un  arresto  dopo  l’apparizione 
di  ognuna  delle  soluzioni. 

PER  GIOCARE:  Si  lancia  il  programma  con  RUN,  poi  si  batte  la  di¬ 

mensione  della  scacchiera  desiderata,  e  si  fa  RE¬ 
TURN. 

Basta  aspettare  con  pazienza  (più  la  scacchiera  sarà 
grande,  più  l’attesa  sarà  lunga).  La  prima  soluzione 
apparirà,  poi  il  programma  si  ferma,  e  bisogna  batte¬ 
re  RETURN  per  farlo  ripartire. 

Per  terminare  l’esplorazione  senza  aver  avuto  tutte  le 
soluzioni,  si  batterà  BREAK. 

ESTENSIONI  POSSIBILI:  Si  può  immaginare  di  trovare  degli  algoritmi 
per  tutti  i  problemi  analoghi  (posizione  delle  torri, 
spostamento  di  un  cavaliere,  ecc.). 
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10  REM  REGINE  SULLA  SCACCHIERA 
20  GRAPHICS  0 = SETCOLOR  1 , 4, 10= SETCOL0R  2,8.2 
30  PRIMI  "Formato  della  scacchiera.  =  ",=  INPUT  S 
35  DIN  R$ < 3 

40  DIM  D(S) =  FOR  1  =  1  TO  S=D<I>=0=NEXT  I 
5u  1  =  1 
Su  IX I )==1 

70  IF  1=1  THEN  110 
80  FOR  J=1  TO  1-1 

90  IF  D< I >=D<  J>  OR  (ABS<D< I >-D< J) >=I-J>  THEN  240 

100  next  j 

110  1=1+1 =IF  I<=S  THEN  60 
120  FRI  NT  '•>*• 

130  FOR  F=1  TO  S 

140  POSI TI OH  2*F+ 1,0= PRINT  F 

158  POSITIOM  0,2*F= PRINT  f 

160  FOR  K=1  TO  S 

178  POSITION  21K+1 , 2TF  =  PRINT 

180  NEXT  K 

190  POSITION  2*D<F>+1,2*F= PRINT 

2O0  POS  I T I  Oli  F ,  20  =  R*=STR$  <  D  <  F  )  )  «  PR I  NT  R$  <1 , 1  > 

210  NEXT  F 

220  SOUND  0,81, 10, 4  =  FOR  T=1  TO  15  =  NEXT  T  =  SOUND  0,0, 0,0 
225  POSITION  5, 22= PRINT  "Battere  <RETURN>  Per  conti ma re  ";= INPUT  R$ 
230  1=1-1 
248  D< I >=D< I )+l 
250  IF  D< I > <=S  THEN  70 
260  1=1-1 

270  IF  IO0  THEN  240 
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Ripetizioni 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  gioco  di  memoria  (uno  o  più  gio¬ 
catori). 

Difficoltà  del  gioco:  media. 

IL  GIOCO:  Dei  numeri  appariranno  uno  ad  uno. 

Il  giocatore  dovrà  ad  ogni  mano  ripeterli  tutti,  dall’i¬ 
nizio  (il  che  significa  che  ne  avrà  uno  in  più  da  batte¬ 
re  ogni  volta). 

Dovrà  cercare  di  resistere  il  più  possibile.  Il  miglior 
punteggio  è  memorizzato  dopo  ogni  partita,  il  che 
permetterà  eventualmente  di  giocare  in  molti. 

IL  PROGRAMMA:  La  linea  30  chiama  un  sottoprogramma  (linee  da 
1000  a  1060)  che  dà  la  regola  del  gioco. 

La  linea  80  crea  le  cifre,  che  sono  in  seguito  imma¬ 
gazzinate  in  una  variabile  alfanumerica  A$. 

La  linea  90  permette  la  stampa  dell’ultimo  numero  a 
caso  a  caratteri  ingranditi  e  la  durata  della  stampa  è 
determinata  dalla  linea  100. 

La  linea  120  aspetta  la  risposta  del  giocatore,  che  è 
paragonata  alla  risposta  corretta  alla  linea  130. 

La  linea  160  marca  i  punti. 

La  linea  170  controlla  il  miglior  punteggio. 

I  messaggi  di  fine  partita  sono  effettuati  dalla  linea 
200  alla  linea  240. 

PER  GIOCARE:  Il  lancio  del  programma  con  RUN  provoca  la  visua¬ 

lizzazione  della  regola  del  gioco,  poi  di  una  cifra  che 
scompare.  L’apparecchio  pone  allora  la  domanda  LA 
TUA  SEQUENZA? 

Gli  si  risponde  ridando  la  cifra,  seguita  da  RETURN. 
Se  è  giusta,  si  ha  per  un  breve  istante  il  messaggio 
ESATTO.  ATTENZIONE,  poi  una  nuova  cifra  appare, 
scompare,  e  ancora  la  domanda  LA  TUA  SEQUEN¬ 
ZA?  Si  ribattono  allora  le  due  cifre  già  ottenute,  se¬ 
guite  da  RETURN. 

Si  continua  così  (3  cifre,  poi  4,  5  ecc.)  fino  a  che  si 
commetta  un  errore,  il  che  provoca  l’apparizione  del 
punteggio  (e  del  miglior  punteggio  ottenuto  fino  ad 
allora),  seguito  dalla  domanda  UN’ALTRA  PARTITA? 
(S/N);  si  batte  S  per  continuare. 

Si  può  anche  lasciare  il  programma  in  ogni  istante, 
battendo  BREAK  prima  dell’apparizione  di  una  cifra. 

ESTENSIONI  POSSIBILI:  Si  potranno  realizzare  dei  giochi  analoghi  e 
più  o  meno  perfezionati  rimpiazzando  le  cifre  con 
delle  lettere,  o  dei  colori,  o  dei  suoni... 
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10  REM  RIPETIZIONI 

20  DIM  A$ < 100> ,  R$ < 100> , 84<  13) 

30  G0SU8  1000 
40  M=tì 
50  AT=" 11 
60  GRAPHICS  2 
70  H=0 

80  X=INT<RND<1>*10> ‘R*<LEN<A$>+1>=STR*<X> 

SO  GRAPHICS  2 : POS I T I OH  RNDO  >*20,4  <  PRINT  #6;X 
100  FOR  1=1  TO  200+RNDC 1 >*300 ■ NEXT  I 
HO  PRINT 

120  PRINT  “ I umetti  I*  tua  sequenza  INPUT  R* 

130  IF  R$Ofi*  THEN  130 

140  PRINT  > FOR  1  =  1  TO  3  GESTORE  :  READ  V> SOUND  0,V, 10.4-FOR  T=1  TO  15‘NEXT  T-NEXT 
I  SOUND  0,0, 0,0 

145  PRINT  "  ESATTO!  attenzione  !" 

150  FOR  1=1  TO  400-NEXT  I 
160  H=H+ 1 

170  IF  M<H  THEN  M=H 
1S0  GOTO  80 
130  PRINT 

200  FRI UT  “Il  tuo  punteselo  e'  di  ";H 
210  PRINT  "Miglior  punteselo  attuale  “;M 
220  PRINT  PRINT  "Un'altra  Partita  <S'N>  INPUT  R4 

230  IF  R*="H"  THEN  FOR  1  =  1  TO  6 • SOUND  0, 126, 10/ 4*< I/2-INTC I^2> >  > FOR  T=1  TO  5  NEX 
T  T’NEXT  I : END 
240  GOTO  50 

10O0  PRINT  “>" -GRAPHICS  & 

10O5  R*=" (RIPETIZIONI  I " • A*=CHR$<1?> ‘B*=CHR$<26> 

1010  FOR  T=1  TO  LEN<R*>-2 

1015  A*<LEN<A*>+l>=CHR$<18>iB4<LEN<B$>+l>=CHR*<18> 

1020  NEXT  T 

1025  A*<LEN(A*)+1 >=CHR*<5> ;8$<LEN<B*>+1 >=CHR*(3> 

1030  POSITION  <40-LEN<R*>>/2,0^PRINT  H$ 

1035  POSITION  <40-LEN<R*> >,'2,  SPRINT  R* 

1040  POSITION  <40-LEN<R*>>/2,2‘PRINT  B$ 

1045  PRINT  ^ PRINT  "  Dovete  ripetere  tutta  la  serie" 

1050  PRINT  "dei  numeri  apparsi  dall'inizio  del  " 

1060  PRINT  "sioco.Ce  n'e'  uno  in  pìu'  oani  volta" 

1070  POSITION  4,22:PRINT  "Battere  <RETURN>  per  continuare"; = INPUT  R# 

1080  RETURN 

2008  DATA  126, 108, 96 REM  DO  RE  MI 
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Parole 


RIFERIMENTI: 


IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  facile. 

Categoria  del  gioco:  gioco  di  lettere  (per  1  o  vari  gio¬ 
catori). 

Difficoltà  del  gioco:  media. 

È  difficile  immaginare  un  gioco  più  semplice  nel 
principio,  che  si  accontenta  di  visualizzare  in  disordi¬ 
ne  le  lettere  prese  da  una  trentina  di  parole.  Ma  cer¬ 
cate  di  giocare  e  vedrete  che  non  è  così  facile;  la  diffi¬ 
coltà  varia  evidentemente  secondo  la  lista  di  parole 
che  avrete  introdotto  precedentemente  in  DATA. 

La  linea  40  permette  di  dimensionare  la  variabile  Z(I) 
che  conterrà  la  parola  X  se  è  stata  scelta. 

Il  ciclo  I  (70)  prende  una  parola  tra  le  30  scritte  in 
DATA  alle  linee  240-280.  La  linea  70  sceglie  una  paro¬ 
la  a  caso. 

Il  ciclo  (100-150)  controlla  se  una  lettera  non  è  già 
stata  pescata  e  riprende  le  lettere  in  disordine. 

La  linea  160  visualizza  le  lettere  e  la  linea  170  aspetta 
la  vostra  risposta,  che  è  testata  alla  linea  180. 

Il  numero  dei  tentativi  è  incrementato  alla  linea  190. 
La  fine  della  partita  è  controllata  dalla  linea  200,  ed 
il  punteggio  è  visualizzato  alla  linea  220. 

Si  noterà  in  500  la  routine  per  suonare  note  sciolte. 

Si  lancia  il  programma  con  RUN.  Una  serie  di  lettere 
appare  allora  in  disordine  e  bisogna  cercare  di  ritro¬ 
vare  la  parola  corrispondente. 

Si  batte  la  parola  supposta,  poi  RETURN,  e  apparirà 
una  nuova  serie  di  lettere  se  si  risponde  S  alla  do¬ 
manda  UN’ALTRA  PROVA?  (S/N). 

Il  punteggio  ed  il  numero  di  tentativi  appaiono  alla 
fine  della  partita. 


ESTENSIONI  POSSIBILI:  Si  può  pensare  di  limitare  il  tempo  di  appari¬ 
zione  della  parola,  o  fare  sfilare  le  lettere  una  dopo 
l’altra  sullo  schermo. 

Si  può  anche  aumentare  la  difficoltà  inserendo  dei 
JOKERS,  giocare  in  molti,  tenere  il  conto  dei  punti, 
ecc. 
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10  REM  PAROLE 

20  Diti  Z<30>  .•  AS<30>  ;  R$<30>  ,  S$<30>  ,  V$<30>  >  S=0 :  E=0 
30  FOR  1=1  TO  30  :Z<  0=0 'NEXT  I 
40  X=I  NT  CRUDO >*30+l> 

50  IF  Z<X>=1  THEH  40 
60  RESTORE  24« 

70  FOR  1=1  TO  X : READ  R$ : NEXT  I 
SO  ZCX>= IV$-R$ 

30  GRAPHICS  o : A$= “ “ 

100  FOR  1=1  TO  LEN<R$> 

110  Z= I NT  < RND O  >  *LEN  <  R*  >  + 1 > 

120  IF  R$<Z,Z>="-"  THEN  110 
130  A*<LEN<A*>+1>=RS<Z,Z> 

140  R*<Z,Z>=“-" 

150  NEXT  I 

160  PRINT  "Le  lettere  sono  * "t A$ ■ RESTORE  1006'GOSUB  500 
170  POSITIOH  2/ 6  =  PRINT  "La  tua  soluzione  INPUT  SS 
ISO  IF  S $-V$  THEN  S=S+1 
130  E=E+1 

200  POSITIOH  2,  12 : PRINT  "Un'altra  prova  CS/N)  INPUT  R* 

210  IF  Rt< 1 ,  1 >="8“  THEN  40 

220  POSITION  2,  18;PRINT  "Il  tuo  eunteMÌo  in  ";E;“  prove." 

230  RESTORE  2O00 ; G0SU6  500 ' END 

240  DATA  PROSCIUTTO. ENERGUMENO. AFFILATO»  ERUDITO. I N8 IGN I F I CAUTE  »  REAL I STA 

250  DATA  IMPRESSIONANTE» ALLETTANTE. EPICO, INTREPIDO, CODARDO, CALCOLATORE 

260  DATA  TRAVE, BAHDER ILLA, SENATO, ATTUALE, CONSACRATO, DIEDRO 

270  DATA  LIBRO, TERMINE, FIRMA, MALEODORANTE, AMANTE, ARBITRARIO 

280  DATA  CALORE , OPPORTUNO , BUCC I A , ALTRU I STA , SPAZZACAM I NO .NOVIZIO 

500  FOR  1=1  TO  3 

510  READ  V- SOUND  0,V,10,4 

520  FOR  T=1  TO  10 ! NEXT  T 

530  SOUND  0,0, 0,0 'FOR  T=1  TO  5 ' NEXT  T 

540  NEXT  I 

550  RETURN 

1000  DATA  126,108,36 

2000  DATA  126,126,126 
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Permutazioni 


RIFERIMENTI:  Programmazione:  di  media  difficoltà. 

Categoria  del  gioco:  riflessione. 

Difficoltà  del  gioco:  media. 

IL  GIOCO:  L’ATARI  vi  chiede  prima  il  numero  di  lettere  che  de¬ 

siderate  permutare  (non  più  di  11);  visualizzerà  quin¬ 
di  il  numero  corrispondente  di  lettere  prese  all’inizio 
dell’alfabeto,  prima  in  disordine  (INIZIO)  poi  in  ordi¬ 
ne  (FINE). 

Dovrete  riuscire  a  rimettere  nell'ordine  le  lettere  da¬ 
te  all'inizio,  utilizzando  delle  permutazioni  sulle  n 
prime  lettere  partendo  da  sinistra,  col  minor  numero 
di  tentativi  possibile. 

IL  PROGRAMMA:  La  linea  40  permette  di  scegliere  il  numero  di  lettere, 
e  la  linea  50  controlla  che  non  se  ne  chiedano  più  di 
11. 

La  linea  80  realizza  la  mescola,  prendendo  a  caso  la 
nuova  posizione  di  ogni  lettera.  Le  lettere  sono  in  se¬ 
guito  aggiunte  man  mano  che  sono  pescate,  in  una 
variabile  B$  (linea  100),  eliminate  in  A$  e  rimpiazzate 
in  C$,  nell’ordine  giusto  (linee  110-120). 

La  linea  140  controlla  il  numero  di  lettere  di  B$. 

Le  visualizzazioni  sono  effettuate  dalle  linee  160,  170 
e  180. 

Il  rigiro  è  fatto,  lettera  per  lettera,  nel  ciclo  I 
(210-230);  il  risultato  è  piazzato  in  B$,  alla  linea  240; 
visualizzato  dalla  linea  250  e  paragonato  al  risultato 
finale  alla  linea  260. 

Il  numero  di  tentativi  sarà  visualizzato  alla  fine  della 
partita,  grazie  alla  linea  270. 

PER  GIOCARE:  Dopo  aver  battuto  RUN,  appare  la  domanda  NUME¬ 

RO  DI  LETTERE  (DA  1  A  11);  si  risponde  battendo  N, 
seguita  da  RETURN.  La  visualizzazione  seguente  pre¬ 
senta  l’ordine  iniziale  (INIZIO)  e  l’ordine  da  ottenere 
(FINE). 

Si  gioca  indicando  il  numero  di  lettere  da  permutare 
partendo  da  sinistra,  per  esempio:  su  un  messaggio 
iniziale  di  GEABDFC,  se  si  batte  3  e  RETURN  si  ot¬ 
terrà  AEGBDFC. 

Si  continuerà  fino  ad  ottenere  l’ordine  desiderato. 

Il  punteggio  apparirà  alla  fine  della  partita  così  come 
la  domanda  UN’ALTRA  PARTITA?  (S/N);  rispondere 
S  se  si  desidera  continuare. 

ESTENSIONI  POSSIBILI:  Si  potrà  utilizzare  lo  stesso  tipo  di  gioco  per, 
ad  esempio,  ricostituire  un  disegno  nascosto,  dove  le 
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diverse  parti  sarebbero  identificate  con  delle  lettere. 
Si  possono  anche  realizzare  delle  permutazioni  più 
complesse  (per  esempio,  il  fatto  di  permutare  due  let¬ 
tere,  permuta  anche  le  due  vicine  alla  lettera  più  a  si¬ 
nistra,  ecc.) 


10  REM  PERMUTAZIONI 

20  DIM  R*ai>,B*<ll>,BE*<ll>,C$<ll> 

30  GRAPHICS  2 

40  PRINT  "Numero  di  lettere  etra  1  e  11)  ui ‘INPUT  N 
50  IF  N> 1 1  THEN  40 

60  A*=“ABCDEFGHIJKL“  -C*=“  "  =  6#="" 

70  GRAPHICS  2 
80  X" I NT  < RND  <  1  >  #N+ 1 > 

90  IF  A*0X,X>=“  “  THEN  80 

100  BE*=6*-B*=A*(X,X>-B*<LEN<B*>+1>«BE* 

110  C*<X,X:-=A*<X,X> 

120  A$<X,X>="  “ 

130  S=1 

140  IF  LEN<B*>ON  THEN  80 
150  C*=C*a,LEN<B*>> 

160  POS ITI OH  0,2- PRINT  #6; "INIZIO  ’  “  ;  6* 

170  P0SITI0N  0,4 ■ PRINT  #6; "FINE  C» 

188  PRINT  ‘PRINT  “Permutazione  No.  “;S: PRINT  - PRINT  “Quantità'  ■u>- INPUT  L  I 
F  L>N  THEN  180 
190  S=S+1 
200  AT=“ “ 

210  FOR  1=1  T0  L 

220  A$<LEN<A$>+1>=6$<L-I+1,L-I+1) 

230  NEXT  I 
240  Bi< 1 , L>=A4 

250  GOSUB  50O’ POS ITI OH  0,6-PRINT  #6, “RISULTATO- “iB* 

260  IF  64  OC  4  THEN  180 

270  GOSUB  500 - GOSUB  500’ PRINT  “>“ -PRINT  “  RIUSCITO  in  prove." 

280  PRINT  -PRINT  "  Un'altra  Partita  <SN>"; - INPUT  A4 

290  IF  H*<1, 0  =  "S“  THEN  30 

300  GRAPHICS  0  END 

500  FOR  1=255  TO  0  STEP  -3 

518  SOUND  0,1,10,4 

520  NEXT  I 

530  RETURN 
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Bridge 


RIFERIMENTI:  Programmazione:  difficile. 

Categoria  del  gioco:  riflessione. 

Difficoltà  del  gioco:  variabile,  secondo  il  problema 
posto. 

IL  GIOCO:  Non  troverete,  in  questo  programma  un  compagno 

per  i  vostri  bridges,  ma,  più  esattamente,  una  simula¬ 
zione  per  la  visualizzazione  di  una  mano;  questa  vi¬ 
sualizzazione  è  realizzata  gioco  per  gioco.  Si  può, 
partendo  da  questo,  porsi  ogni  sorta  di  problemi:  di¬ 
chiarazioni,  gioco  della  carta,  ecc. 

IL  PROGRAMMA:  Le  linee  50  e  60  definiscono  un  mazzo  di  52  carte. 

La  variabile  B$,  dimensionata  alla  linea  70,  permette¬ 
rà  di  visualizzare  i  simboli  dei  colori  e  anche  di  mi¬ 
gliorare  il  disegno  di  certe  carte  (10,  fante,  donna,  re 
e  asso). 

Il  ciclo  J  (80-220)  realizza  la  pesca  di  quattro  mazzi  di 
13  carte. 

Il  ciclo  I  (90-190)  realizza  pesca  e  stampa.  La  carta  è 
scelta  tra  le  52  disponibili,  alla  linea  110. 

La  linea  110  calcola  il  colore  della  carta  pescata. 

La  linea  120  verifica  che  questa  carta  non  sia  già  sta¬ 
ta  pescata. 

Le  linee  130  e  140  si  occupano  della  stampa  comple¬ 
mentare  nel  caso  si  peschi  un  10,  un  fante,  una  don¬ 
na,  un  re  o  un  asso. 

La  stampa  è  realizzata  dalle  linee  150,  160  e  170. 

La  linea  180  permette  di  eliminare  le  carte  già  pesca¬ 
te,  e  la  linea  200  realizza  un  arresto  tra  ogni  visualiz¬ 
zazione. 


PER  GIOCARE:  Si  lancia  il  programma  con  RUN. 

Una  prima  serie  di  13  carte  appare  verticalmente. 
Basterà  battere  un  RETURN  per  ottenere  la  seconda 
serie  di  13  carte.  Si  procederà  nello  stesso  modo  per 
la  terza  e  la  quarta  serie. 

ESTENSIONI  POSSIBILI:  Si  può  immaginare  di  raffigurare  le  13  carte 
in  una  maniera  più  convenzionale. 

Si  può  anche  aggiungere  la  possibilità  di  fare  delle 
dichiarazioni  (e  di  paragonarle  a  quelle  dell’ATARI, 
per  esempio),  o  introdurre  delle  possibilità  di  gioco 
della  carta,  compreso  anche  TATARI. 
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10  REM  BRIDGE 

29  DIM  B$<  13>  >  R$<52>  .■  S$<  1  > 

40  GRAPHICS  0 

50  R*=" 23456789 1FDRH" 

60  FOR  1  =  1  TO  2iR*aEN<R*>  +  l>=R*:NEXT  I 
70  Bf '-“FI  QUCUP 1 0R0ES" 

80  FOR  J=1  TO  4 

30  FOR  1=1  TO  13 

1 00  X= I MT  < RND < 1 ) *LEN  <  R* ) + 1 ) 

110  s=2*irm<x-ivi3>-*-i 
120  IF  R$<X,X>="0"  THEH  100 
130  T=X- 1 3T I HT  <  'ìv'  1 3  > 

140  T=T+13:»:<  T=0> 

150  POSiriON  10*J-8,I>PRINT  R$<X,X>; 

160  IF  T>=9  THEN  FRI NT  B*<T,T> 

170  POSITION  18*J-4,I<PRINT  B*<S,S+1> 

ISO  R$<Xj  X>  =  “0“ 

190  NEXT  I 

200  IF  J<4  THEH  POSITION  4,18-PRINT  “Battere  <RETURN>  per  continuare"!  INPUT  S $ 
210  POSITION  4,13=PRINT  " 

220  NEXT  J 
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Hanoi 


RIFERIMENTI:  Programmazione:  difficile. 

Categoria  del  gioco:  riflessione. 

Difficoltà  del  gioco:  elevata. 

IL  GIOCO:  È  presentato,  qui,  in  una  versione  per  un  solo  gioca¬ 

tore.  Si  dispone  di  un  certo  numero  di  dischi  (8  al 
massimo)  e  si  deve  trasferirli  dalla  torre  numero  1  al¬ 
la  torre  numero  3,  rispettando  una  sola  regola:  in 
nessun  momento  un  disco  può  essere  ricoperto  da  un 
disco  di  diametro  superiore. 

Il  numero  di  tentativi  non  è  contabilizzato  in  questo 
programma,  ma  le  mosse  illecite  saranno  rifiutate. 

IL  PROGRAMMA:  La  variabile  E$,  alla  linea  40,  servirà  a  disegnare  i 
dischi. 

Il  numero  di  dischi  è  inserito  alla  linea  50  e  rifiutato 
se  ci  sono  più  di  8  dischi. 

Il  ciclo  I  (70-90)  permette  di  fabbricare  una  variabile 
A(l)  che  contiene  lo  stato  della  pila  sotto  forma  nu¬ 
merica  (alla  linea  30,  tre  variabili  sono  previste  per 
conservare  lo  stato  delle  tre  pile). 

Le  basi  sono  disegnate  dalla  linea  1 10  e  le  tre  pile  dai 
cicli  chiusi  I  (130-180)  e  J  (140-170). 

Il  controllo  della  mossa  è  effettuato  dalle  linee  210, 
220,  235,  237,  260  e  lo  stato  delle  pile  è  modificato 
dalle  linee  270  e  280. 

PER  GIOCARE:  Dopo  un  RUN  che  lancia  il  programma,  si  inserisce  il 

numero  di  dischi  richiesti,  seguito  da  RETURN.  Si 
ottiene  il  disegno  dello  stato  iniziale  e,  alla  domanda 
TORRE  DI  PARTENZA,  si  risponde  dando  il  numero 
della  torre  di  partenza.  Questo  numero  (1,  2  o  3)  sarà 
rifiutato  se  la  torre  è  vuota.  Poi  si  batte  RETURN  e 
alla  domanda  TORRE  D'ARRIVO,  si  risponde  col  nu¬ 
mero  della  torre  d'arrivo. 

Se  la  mossa  non  è  possibile,  saremo  obbligati  a  rico¬ 
minciare  da  TORRE  DI  PARTENZA.  Se  la  mossa  è 
possibile,  lo  spostamento  è  realizzato  e  si  ricomincia. 

ESTENSIONI  POSSIBILI:  Si  potranno  disegnare  dei  dischi  di  diversi  co¬ 
lori,  introdurre  un  contatore  di  mosse  e,  soprattutto, 
definire  un  gioco  per  il  calcolatore. 

Si  può  anche  cercare  di  complicare  il  gioco  con  due 
torri  in  più  e  due  giocatori,  ognuno  avente  dei  dischi 
di  colore  diverso,  per  esempio. 
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10  REM  HANOI 

15  DIM  R*<8>,6*<9>,C*<9>,D*<9> 

20  GRAPHICS  0 : SETCQLOR  1 , 6, 2 - SETCOLOR  2,2/14 

30  DIM  R<8> -R<l>=9>fi<2>“9- A<3)=9 

40  FOR  1  =  1  TO  9  =  D$<I>=CHR*O60>  -NEXT  I 

50  PRINT  "Numero  di  torri  (meno  di  8)  INPUT  N 

60  IF  N>=8  THEN  50 

70  FOR  1=0  TO  N-l 

80  ft*=STR*<fl< 1 > ) - H$<LEN<R*>+1 >=STR*<N-I >  -fì< 1 >-VRL<R*> 

90  NEXT  I 
100  PRINT  ">“ 

110  POSITION  3, 14 'PRINT  D*'P0SITI0N  15,14-PRINT  D$-P0SITI0N  27,14-PRINT  D* 

120  POSITION  7, 14 -PRINT  "1" -POSITION  19,14-PRINT  "2" -POSITION  31,14-PRINT  "3" 
138  FOR  1=0  TO  N-l 
140  FOR  J=1  TO  3 
150  B*=STR$<R<J>> 

160  IF  LEN<6*»I+t  THEN  POSITION  12*J-9, 13-1  -PRINT  D*<l,VRUB*<I+2, 1+2)>> 

170  NEXT  J 
180  NEXT  I 

200  POSITION  0, 16-PRINT  "Torre  di  partenza  -POSITION  19, 16- INPUT  D 
210  IF  D>3  OR  D<1  THEN  200 
220  IF  fl<D>=9  THEN  200 

230  POSITION  0, 18 ‘PRINT  “Torre  d'arrivo  -  "< -POSITION  16,18-INPUT  fl 

235  IF  R>3  OR  fl< 1  THEN  230 
237  IF  R=D  THEN  200 
240  B*»STR*<R<D)> 

250  C*=STRt<R<fl>> 

260  IF  6*<LEH<B*>>>C*<L.EN<C*>>  THEN  200 
270  fi(R>=VRL(C$>*10+VRL<B$<LEN<B*))) 

280  R<D>=VflL<B*<l,LEN<B*)-l>) 

290  GOTO  180 
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Rombi 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  passatempo. 

Difficoltà  del  gioco:  nessuna. 

IL  GIOCO:  Il  programma  genera  progressivamente  sullo  scher¬ 

mo  un  rombo  poi  lo  cancella  progressivamente  per 
poi  ricominciare  e  via  di  seguito. 

Potrete  utilizzarlo  come  sonnifero  se  le  pecore  non  vi 
bastano  più. 

Nella  versione  leggermente  modificata  che  vi  è  pro¬ 
posta  appariranno  dei  motivi  casuali  dopo  la  costru¬ 
zione  di  ogni  rombo. 

IL  PROGRAMMA:  Un  primo  ciclo  K  (55-130)  definisce  le  dimensioni  dei 
tracciati  successivi. 

Il  secondo  ciclo  I  (60-120)  traccia  delle  bande  di  pun¬ 
ti,  utilizzando  le  istruzioni  PLOT  (linee  80-110). 

Se  la  variabile  S  (linea  70)  è  a  1,  si  avrà  una  cancella¬ 
zione  casuale  (si  utilizza  PLOT,  ma  servendosi  dei  co¬ 
lori  casuali  per  cancellare). 

Nel  secondo  programma  si  otterrà  una  cancellazione 
casuale  modificando  la  linea  70. 


PER  GIOCARE:  Si  lancia  l'esecuzione  del  programma  con  RUN.  Si  in¬ 

serisce  se  necessario  un  nucleo  per  il  generatore  (se¬ 
condo  programma)  e  si  guarda. 

Si  può  fermare  in  qualsiasi  momento  battendo 
BREAK. 

ESTENSIONI  POSSIBILI:  Si  potrà  introdurre  il  suono,  utilizzare  l’istru¬ 
zione  DRÀWTO  che  permetterà  un  tracciato  molto 
più  rapido,  immaginare  su  dei  principi  analoghi  di¬ 
versi  programmi  (caleidoscopio,  tappezzeria...). 
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1.0  REM  ROMBI 
20  GRAPHICS  7+16 
40  8=0 

S8  FOR  I *0  TO  4  : 8ETC0L0R  I,INT< RNB < 1 >  * 1 6  > , 2*  < I +2 > : NEXT  I 
SS  FOR  K=0  TO  40 
60  FOR  1-0  TO  K 
SS  COLOR  1 

70  IF  800  THEN  ON  INTERNI? a  >*5+1  >  GOTO  160.170,180.190/200 

80  PLOT  80-K+I.40-T 

90  PLOT  80-K+I , 40+ T 

100  PLOT  80+K-I , 40+1 

110  PLOT  80+K- 1,40-1 

120  NEXT  I 

130  NEXT  K 

140  8=  HOT  S 

150  GOTO  50 

160  COLOR  0 ; PLOT  80-K+I.40-I 
170  COLOR  1 : PLOT  80-K+I, 40+ T 
180  COLOR  2 : PLOT  80+K- 1,40+1 
190  COLOR  3- PLOT  80+K- 1,40-1 
200  GOTO  120 


1.0  REM  ROMBI  INTERI 
20  GRAPHICS  7+1.6 
40  8=0 

50  CO»  1  + 1 NT  <  RNI.1  <  1  >  *3  > 

55  FOR  K-0  TO  40 
60  FOR  1=0  TO  K 
65  COLOR  CO 
70  IF  800  THEN  160 
80  PLOT  80-K+ 1,40-1 
90  PLOT  80-K+. 1,40+1 
100  PLOT  80+K-I ,40+ I 
110  PLOT  80+K-I, 40-1 
120  NEXT  T 
130  NEXT  K 
140  o-  HOT  S 
150  GOTO  S0 

160  COLOR  S  •'  PLOT  80-K+ 1,40-1 
1.70  PLOT  80-K+I,  40+1 
180  PLOT  80+K-I, 40+ I 
190  PLOT  80+K- 1,40-1 
200  GOTO  120 
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Matteo 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  facile. 

Categoria  del  gioco:  disegno  casuale. 

Difficoltà  del  gioco:  nessuna. 

Si  utilizza  la  definizione  di  una  curva  in  coordinate 
polari  e  l’istruzione  PLOT  per  ottenere  sullo  schermo 
dei  disegni  casuali  (del  tipo  fiore)  più  o  meno  elegan¬ 
ti. 

I  due  parametri  principali  A  e  B  possono  essere,  se 
necessario,  inseriti  alla  mano  (istruzione  INPUT)  per 
fare  uno  studio  più  sistematico  di  diverse  curve  pos¬ 
sibili. 

I  primi  3  parametri  Z,  K  e  T,  introdotti  alla  linea  40, 
definiscono  il  raggio  massimo  e  l’occupazione  dello 
schermo. 

Le  variabili  casuali  A  e  B  scelte  tra  0  e  2,  dalla  linea 
60,  definiscono  l’andamento  della  curva;  potrà  essere 
interessante  introdurle  manualmente  (per  esempio: 
60  INPUT  A,B). 

II  ciclo  H  (70-120)  realizza  la  traccia  punto  per  punto. 
Il  raggio  R  è  calcolato  alla  linea  80  e  il  passaggio  in 
coordinate  cartesiane  è  effettuato  alle  linee  90  e  100. 
La  visualizzazione  dei  punti  è  realizzata  dalla  linea 
110. 

La  linea  150  suona  la  musichetta  contenuta  in  A$ 

La  linea  180  sceglie  un  altro  colore  del  disegno  e  il 
programma  ricomincia  in  40. 

Si  lancia  il  programma  con  RUN. 

Il  disegno  sarà  eseguito  automaticamente. 

Per  terminare  battere  BREAK. 


ESTENSIONI  POSSIBILI:  Si  potranno  utilizzare  delle  funzioni  grafiche 
più  definite,  variare  i  colori. 

Si  potrà  cercare  di  utilizzare  delle  altre  funzioni  per 
realizzare  dei  tracciati  ancora  più  straordinari  (per 
esempio  con  simulazione  della  terza  dimensione). 
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IO  REM  MATTEO 

20  GRAPHICS  7+16  POR  1=0  TO  4=SETC0L0R  I, INT<16*RND<1>>,2*I 'HEXT  I 
25  DIN  A*<9> 

30  C=INT<RND< 1 >T4> : IF  C=0  THEN  30 
40  Z=5:K=9; T=3 
60  A=3*:RND<  1  ')  ■  B=3*:RND<  1  >  . 

79  FOR  H=0  TO  6.28  STEP  3. 14-180 

80  R=Z*SIN<H*T> 

90  X=?5+ 1 UT  <  K*R*CÙS  <  AtH> ) 

1 00  Y=47+ 1 NT  < K*R*S I N<  B*H> ) 

110  COLOR  C  > PLOT  X,Y 
120  NEXT  H 
1 40  fi$= “ 1 2609608 1 " 

150  FOR  1=0  TO  2 : SOUND  0,VAL(Rf (3*1+1 > 3*1+3) ) ,  10>4  •  FOR  T=1  TO  10=HEXT  T-SOUND  0, 
0.O/0;FOR  T=1  TO  5 : NEXT  T • NEXT  I 
160  C=C+1 • IF  C=0  THEN  180 
190  GOTO  40 
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Il  lupo  e  gli  agnelli 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  difficile. 

Categoria  del  gioco:  riflessione  (2  giocatori). 
Difficoltà  del  gioco:  media. 

È  un  gioco  abbastanza  conosciuto  che  può  essere 
praticato  su  una  scacchiera  8*8,  o  indifferentemen¬ 
te,  su  una  10*10.  È  presentato,  qui,  in  una  versione 
per  una  scacchiera  8*8;  uno  dei  giocatori  sceglie  il 
lupo  che  si  sposta  seguendo  le  diagonali,  restando 
sulle  caselle  nere,  di  una  casella  ad  ogni  colpo,  e  che 
può  avanzare  o  retrocedere.  Gli  agnelli  si  spostano 
ugualmente  sulle  caselle  nere,  in  diagonale,  ma  non 
hanno  il  diritto  di  retrocedere.  Le  caselle  già  occupa¬ 
te  sono  proibite  (niente  prese),  e  non  ci  sono  salti. 

Il  lupo  vince  se  riesce  ad  arrivare  sulla  linea  in  basso 
prima  che  tutti  gli  agnelli  occupino  quella  in  alto;  gli 
agnelli  vincono  in  questo  caso,  o  se  riescono  a  blocca¬ 
re  il  lupo. 

Una  variabile  A$,  alla  linea  30,  contiene  le  posizioni 
di  partenza. 

Il  ciclo  I  (80-130)  disegna  la  scacchiera,  e  le  linee  da 
150  a  190  posizionano  il  lupo  e  gli  agnelli. 

La  linea  200  gestisce  il  cambio  di  giocatore. 

La  linea  280  visualizza  "TURNO  DEL  LUPO”  se  è  il  gio¬ 
catore  che  manipola  il  lupo  che  deve  giocare,  e  la  linea 
240  "TURNO  DEGLI  AGNELLI”  nel  caso  contrario. 

Le  linee  250-270  o  analizzano  la  risposta,  in  funzione 
del  giocatore  in  questione. 

RUN  posiziona  il  calcolatore  in  attesa  di  un  inseri¬ 
mento:  0  e  RETURN  se  si  vuole  far  iniziare  gli  agnelli 
e  1  per  il  lupo. 

Dopodiché  appaiono  la  scacchiera  e  la  frase  TURNO 
DEL  LUPO  (A,  S,  Z,  X)  per  il  lupo  e  TURNO  DEGLI 
AGNELLI  (ND  o  NS)  per  gli  agnelli. 

Gli  agnelli  rispondono  con  un  numero,  seguito  da  D  o 
S  (per  destra  o  sinistra).  Così  2D  provoca  lo  sposta¬ 
mento  dell’agnello  numero  2  che  sale  in  diagonale  di 
una  casella  a  destra.  È  visualizzato  lo  spostamento 
effettuato,  poi  si  ottiene  una  domanda  identica  per  il 
lupo  che  risponderà  battendo  A,  S,  Z  o  X,  secondo  la 
direzione  scelta: 


A 


S 


Z 


X 
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Si  dovrà  fare  attenzione  a  non  uscire  dalla  scacchie¬ 
ra  e  a  non  finire  suH’awersario,  dato  che  non  è  previ¬ 
sto  alcun  controllo. 

ESTENSIONI  POSSIBILI:  Si  potrà  prevedere  una  individuazione  delle 
caselle,  una  grafica  più  curata,  dei  controlli  di  non 
superamento  dei  limiti  del  tavolo,  di  non  arrivo  su 
una  casella  già  occupata... 

Si  potrà  anche  pensare  di  giocare  su  una  scacchiera 
di  10*10  caselle,  che  aumenta  leggermente  la  diffi¬ 
coltà  del  gioco  per  gli  agnelli.  Ma  l’estensione  più  in¬ 
teressante  da  realizzare  sarà  certamente  la  creazione 
di  un  programma  che  permetta  all’ ATARI  di  compor¬ 
tarsi  come  un  degno  avversario  ,  sia  col  lupo,  sia  con 
gli  agnelli  (e,  in  questo  caso,  sarà  possibile  definire 
una  strategia  vincente  per  TATARI). 


10  REM  IL  LUPO  E  GLI  AGNELLI 
15  DIM  A*<10>,CA*<4>,R$<2> 

20  PRINT  “Aan*lli<0>  o  Lupo<1>  '  “ì  > INPUT  S 
30  A*=“8i838587i4" 

35  FOR  N=1  T0  4 : Ch$(N)=CHR*< 166> 1 NEXT  N 

40  GRAPHICS  0 ! SETCOLOR  1; 10, 14 

50  PRINT  "  A  B  C  D  E  F  G  H" 

S@  FOR  1*1  IO  8'POSITION  0,2*1 ‘PRINT  I'NEXT  I 
80  FOR  1=1  T0  8 
90  FOR  J=1  TO  3 
100  POSI TI OH  4* J- 1,2*1 

110  IF  < I+J)^2=INT< < I+J>/2)  THEN  PRINT  CR*'P0SITION  4*J-1, 2*1+1  PRINT  CO*  GOTO  1 
20 

115  PRINT  " 

120  NEXT  J 
130  NEXT  I 

150  POSITION  4*VRL<A$< 10, 10) )+l,2*VAL<A$<3,9>> •PRINT  "L" 

ISO  POS  ITI  0N  4*VAL<A$<2,2)>+l,2*VAL<H*a,n> 'PRINT  "1“ 

170  P0SITI0N  4*V0L<A*<4,4>>+1 ,2*VAL<H*<3, 3) ) 'PRINT  "2" 

ISO  POSITION  4*VAL<H*<6,6) >+l , 2*VAL<A$<5,5>> 'PRINT  “3" 

190  POSITION  4*VAL<A*<8, 8>  >+l , 2*VRL<A$<7, 7>  > ' PRINT  M4" 

200  S=ABS<S-1> 

210  POSITION  0,20  PRINT  " 

228  POSITION  0,28' IF  S*0  THEN  PRINT  “Turno  del  lupo  <A,2,S,X>  "."INPUT  R* 

230  IF  S«1  THEN  PRINT  "Turno  dea  li  «snelli  <ND  o  NS>  INPUT  R*  'GOTO  280 
240  C=10 

250  fl-VAL <A*< LEN <  A*  >  - 1 ,  LEN  <  A*  >  >  > + <  C+ 1  >  *  <  R$*  "  X  "  > + <  C- 1  >  *  <  R*==  "  2  "  > 

2S0  A=A-<C+1>*<R*="A“>-<C-1 )*<R$=,’S“> 

270  GOTO  300 

230  C=2* VAL  IR* U,  1  )  ) 

290  A=VAL<A*<C-1,C))-9*(R$<2,2>=,,D")-11*<R$<2,2)="S“> 

300  R*<C-1,C>=STR*<A> 

310  GOTO  80 
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LIVELLO  4 


N. 

Nome  del  programma 

Tema  e  particolarità 

1 

Lancio  di  dadi 

Sufficientemente  elastico  per  essere  usa¬ 
to  dappertutto 

2 

Tombola 

Vincete  senza  problemi  alla  prossima 
estrazione 

3 

La  bomba 

Saprete  scoprirla  in  tempo?  (1  giocatore) 

4 

Lavagna  magica 

Mettete  a  punto  le  vostre  creazioni  grafi¬ 
che,  senza  carta  né  penna 

5 

Pubblicità 

Se  non  sapete  cosa  mettere  nella  vostra 
vetrina 

6 

Cappelli 

Siate  molto  osservatori  e  riuscirete  (2 
giocatori) 

7 

Combattimento  aereo 

Non  è  così  facile  abbattere  un  aereo  che 
si  sposta  sempre 

8 

Disegno  di  dadi 

Migliorate  i  vostri  giochi  di  dadi  inseren¬ 
do  questo  programma 

9 

Il  gioco  del  missile 

Una  missione  pericolosa!  (1  giocatore) 

10 

La  scimmia 

Un  gioco  di  lettere  per  due  giocatori,  do¬ 
ve  bisogna  avere  dei  buoni  riflessi 

11 

Il  gioco  del  15 

Un  gioco  di  riflessione  che  utilizza  ci¬ 
fre  (2  giocatori) 

12 

Destrezza 

Gioco  di  riflessi  per  1  giocatore 

13 

Sottomarino 

Un  classico  dei  videogiochi  (1  giocatore) 

14 

Zombi 

Un  po’  strano,  ma  molto  bello  (1  giocato¬ 
re) 

15 

Diago 

Siete  veramente  sicuri  dei  vostri  riflessi? 

16 

Recomat 

Per  evitare  di  ammuffire  su  Nicomat 

17 

Caccia  al  sottomarino 

Vi  ci  vorrà  non  poca  riflessione  e  molta 
fortuna 

18 

Tastiera 

Imparate  a  battere  a  macchina  diverten¬ 
dovi 
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Le  tecniche  d’animazione 
elementare 
I  caratteri  grafici 


PRESA  AL  VOLO  DI  UN  CARATTERE 
BATTUTO  ALLA  TASTIERA: 

Il  principio  di  un  gioco  grafico,  in  animazione,  è  che  si  svolga  da  solo,  in 
una  certa  maniera,  durante  un  certo  tempo,  finché  non  interviene  il  gioca¬ 
tore. 

Bisogna  dunque  disporre  della  possibilità  di  osservare  se  c’è  stato  o  no 
l’intervento  del  giocatore,  senza  per  questo  interrompere  lo  svolgimento 
del  programma. 

Nel  Basic  dell’ATARI,  questa  proprietà  è  offerta  dalla  funzione  GET  che 
legge  la  tastiera  interrompendo  il  programma.  La  sua  sintassi  molto  parti¬ 
colare  deve  essere  rispettata.  Prima  dell’utilizzo  si  inizializza  con  il  co¬ 
mando: 

OPEN  #  ÌAO/K" 

che  si  pone  all’inizio  del  programma.  La  scelta  è  effettuata  da: 

GET  #  1,  VAR 

"VAR”  contiene  il  codice  ASCII  del  tasto  battuto. 

Per  scegliere  al  volo  è  necessario  utilizzare  una  particolarità  dell'ATARI. 
Ad  ogni  tasto  battuto  corrisponde  un  codice  speciale  dell’ATARI  (si  parla 
di  codice  ATASCII)  situato  nella  memoria  764.  Basta  leggere  questa  memo¬ 
ria  per  sapere  quale  tasto  è  stato  premuto  per  ultimo. 

Il  comando: 

PEEK  legge  il  contenuto  di  una  memoria: 
così,  CLA = PEEK(7 64) 

assegna  alla  variabile  CLA  il  codice  tastiera  dell’ultimo  tasto  battuto. 

Per  evitare  di  leggere  due  volte  di  seguito  lo  stesso  valore,  si  consiglia  do¬ 
po  la  lettura,  di  reinizializzare  questa  memoria,  il  comando  POKE  permet¬ 
te  questa  manipolazione:  POKE  764,255  pone  255  (codice  nullo)  nella  me¬ 
moria  numero  764. 

SPOSTAMENTO  DI  OGGETTI  DAL  BASSO  IN  ALTO 
SULLO  SCHERMO:  SCROLL 

È  difficile,  se  si  lavora  in  BASIC,  generare  lo  spostamento  simultaneo  di 
vari  oggetti  sullo  schermo  (se  non  si  ottiene  velocemente  una  animazione 
accidentata,  a  causa  di  un  tempo  di  spostamento  proibitivo). 
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L’ATARI  realizza  automaticamente  uno  "Scrolling"  (cioè  uno  spostamento 
dell’insieme  dell’immagine)  verso  l’alto,  quando  si  scrive  sull'ultima  riga 
in  basso  dello  schermo. 

Questa  proprietà  è  stata  messa  a  profitto  in  vari  giochi:  ciò  permette,  in¬ 
fatti,  di  spostare  di  una  riga  verso  l’alto  i  vari  oggetti  (testi  e  grafici)  pre¬ 
senti  sullo  schermo  in  quel  momento.  La  linea  in  alto  è  evidentemente 
persa. 

Se  un  oggetto  deve  restare  immobile  sullo  schermo,  sarà  necessario  can¬ 
cellarlo  dalla  sua  nuova  posizione  e  sostituirlo  alla  sua  posizione  iniziale. 
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Lancio  di  dadi 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  facile. 

Categoria  del  gioco:  lancio  di  dadi. 

Difficoltà  del  gioco:  nessuna. 

Il  programma  proposto  non  realizza  un  gioco  vero  e 
proprio,  ma  potrà  essere  utilizzato  come  sottopro¬ 
gramma  per  numerosi  giochi. 

Offre  semplicemente  la  possibilità  di  lanciare  da  1  a 
9  dadi,  con  la  semplice  pressione  di  un  tasto.  I  dadi 
sono  visualizzati  in  seguito  con  una  grafica  molto 
semplificata. 

La  linea  60  prende  il  carattere  battuto  sulla  tastiera 
e  lo  trasforma  in  numero  (se  non  è  possibile,  il  pro¬ 
gramma  rifiuta  l’ingresso). 

Una  variabile  D  dimensionata  riceve  il  valore  indica¬ 
to  da  ogni  dado. 

Un  ciclo  J  (110-130)  è  utilizzato  per  disegnare  un  fon¬ 
do,  e  un  altro  ciclo  I  (100-160)  serve  al  lancio  (lancio 
alla  linea  140  e  stampa  alla  linea  150). 

La  linea  230  offre  la  possibilità  di  rifare  un  lancio; 
non  è  indispensabile. 

Si  lancia  il  programma  con  l'ordine  RUN  e  si  ottiene 
il  messaggio  NUMERO  DI  DADI  DA  LANCIARE?  al 
quale  si  risponde  battendo  una  cifra. 

Il  risultato  è  visualizzato  automaticamente;  basta 
battere  un  tasto  qualunque  per  ricominciare.  Per  fer¬ 
marsi,  è  necessario  battere  BREAK. 


ESTENSIONI  POSSIBILI:  Si  potrà,  naturalmente,  utilizzare  questo  pro¬ 
gramma  per  la  realizzazione  di  ogni  gioco  utilizzante 
dei  dadi  (421,  ecc.) 
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10  REM  LANCIO  DI  DADI 
15  DIM  DO) 

20  OPEN  #1,4,0, "K : " 

38  SETC0L0R  1 , 13, 2 • SETC0L0R  2,5,14 
40  FRI NT  ">" 

50  POSITION  0,0‘PRINT  “Numero  di  dadi  da  lanciare  ;  "  ; 

60  GET  #1 , A 

70  IF  fi <43  OR  fl>57  THEN  40 
S0  N-R-48 
30  FRI  NT  ">'• 

100  FOR  1=1  TO  N 
110  FOR  J=1  TO  3 

120  POSITION  4*1-4, 8+J-PRINT  CHR*<160> jCHR$<160)ìCHR$<160> 
130  NEXT  J 

140  D< I >=INT <RND( 1 )*6+l ) 

150  POSITION  4*1-3, 10 ‘PRINT  D<I> 

160  NEXT  I 

170  RESTORE  -FOR  1=1  TO  3 

1 80  READ  V  < SOUND  0 , V , 1 0 , 4 

130  FOR  T=1  TO  10 ‘NEXT  T 

200  SOUND  0,0, 0,0 

210  FOR  T=1  TO  5 ; NEXT  T 

220  NEXT  I 

230  GOTO  50 

1000  DATA  126,108,96 
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Tombola 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Il  gioco  qui  presentato  differisce  alquanto  da  quello 
praticato  in  Italia. 

Programmazione:  facile. 

Categoria  del  gioco:  fortuna  (vari  giocatori). 
Difficoltà  del  gioco:  bassa. 

Si  tratta  di  realizzare  una  partita  completa  di  tombo¬ 
la,  cioè  di  ottenere  6  numeri,  compresi  tra  1  e  49,  più 
un  numero  complementare,  tutti  differenti,  che  po¬ 
trebbero  essere,  per  esempio,  utilizzati  per  riempire 
la  vostra  prossima  cartella  di  tombola. 

Si  utilizzerà  un  array  N(7),  dimensionato  alla  linea 
40,  per  registrare  i  risultati. 

La  pesca  dei  numeri  è  effettuata  in  un  ciclo  I  (60-120), 
un  secondo  ciclo  J  (90-110)  è  utilizzato  per  controlla¬ 
re  che  non  ci  siano  due  pescate  identiche. 

La  pescata  (o  la  ripescata)  è  effettuata  alla  linea  70. 
Il  ciclo  I  (160-190)  visualizza  il  risultato,  e  la  linea  200 
visualizza  il  numero  complementare. 

Le  linee  da  220  a  230  si  occupano  del  caso  in  cui  si 
vorrebbe  rifare  una  partita. 

Basta  battere  RUN  per  lanciare  il  programma  e  otte¬ 
nere  la  visualizzazione  di  un  primo  numero. 

La  domanda  UN’ALTRA  ESTRAZIONE  (S/N)  appare 
nel  basso  dello  schermo;  si  risponderà  S  se  si  deside¬ 
ra  continuare. 


ESTENSIONI  POSSIBILI:  Si  può  immaginare  un  programma  che  potreb¬ 
be  tenere  conto  sia  dei  propri  risultati,  sia  dei  risul¬ 
tati  inseriti  da  un  giocatore,  per  migliorare  la  pesca¬ 
ta,  tenendo  conto  delle  probabilità  di  avere  un  dato 
numero. 

Si  può  anche  immaginare  un  programma  che  realizzi 
dei  cartoncini  per  la  tombola  come  quella  che  è  anco¬ 
ra  correntemente  praticata  nel  Sud  della  Francia. 


102  programmi  per  ATARI  147 


10  REM  TOMBOLA 
20  OPEN  #1,4,0,"K’“ 

40  DIM  N<?> 

50  GRAPHICS  2 

60  FOR  1=1  TO  7 

70  N< I >=INT<RND< 1 >*49+1 ) 

80  IF  1=1  THEN  120 

30  FOR  J=1  TO  1-1 

100  IF  NU>=N<J>  THEN  70 

110  NEXT  J 

120  NEXT  I 

140  T'OSI TION  3 ,  Ù  •  PRINT  #6;"  TOMBOLA 

ISO  POSI  TION  3»  1  :  PRINT  #6;" - “ 

160  FOR  1=1  TO  6 
170  POSI TION  3*1-1, 5 
130  PRINT  #6,N(I) 

130  NEXT  I 

200  POSITION  O , SPR I NT  #6; “complementare  ;M;N<?>; 

210  RESTORE  ‘FOR  1=1  TO  3 ■ READ  V< SOUND  3,V,10,4‘FOR  T=1  TO  10 ‘NEXT  T : SOUND  0,0,0 

,0‘FOR  T=1  TO  5 • NEXT  T > NEXT  I 

220  PRINT  PRINT  “  Un'altra  estrazione  <S/N>  “> 

230  GET  #1,R‘ IF  A=83  THEN  50 

240  GRAPHICS  0 

1000  DATA  126,103,36 
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RIFERIMENTI: 

IL  GIOCO: 

IL  PROGRAMMA: 


PER  GIOCARE: 


La  bomba 


Programmazione:  di  media  difficoltà. 

Categoria  del  gioco:  solitario. 

Difficoltà  del  gioco:  media. 

Dovete  trovare,  con  l’aiuto  di  un  rivelatore  speciale, 
un  pacco  radioattivo  deposto  da  un  viaggiatore  male 
intenzionato,  in  una  camera  d’albergo.  Un  solo  pro¬ 
blema,  di  misure:  l’albergo  possiede  un  milione  di  ca¬ 
mere  (100*100*100). 

Il  vostro  rilevatore  visualizza,  in  permanenza,  un  se¬ 
gnale  che  vi  informa  sulla  prossimità  della  bomba  e 
il  tempo  che  vi  resta,  decontabilizzato  di  10  in  10. 
Potrete  scoprire  la  bomba  prima  dell’esplosione? 

Una  variabile  numerica  R,  dimensionata  A  3  contiene 
le  tre  coordinate  che  definiscono  la  posizione  del  gio¬ 
catore. 

La  posizione  della  camera  contenente  il  pacco  è  defi¬ 
nita  da  un’  estrazione  casuale  di  3  variabili  A,  B,  C, 
alla  linea  50. 

Il  ciclo  I  (70-110)  disegna  il  detector. 

Il  segnale  di  prossimità  è  calcolato  alle  linee  1 30  e  la 
linea  140  permette  la  visualizzazione  delle  coordinate 
della  camera  da  scoprire,  nel  caso  in  cui  si  sia  perso. 
La  linea  150  permette  la  visualizzazione  sia  del  se¬ 
gnale  che  del  tempo  rimanente. 

La  linea  160  realizza  il  conto  alla  rovescia  del  tempo. 
La  linea  170  controlla  se  si  è  riusciti  a  trovare  o  no  il 
pacco. 

Il  ciclo  I  (210-250)  permette  di  inserire  le  nuove  coor¬ 
dinate,  utilizzando  il  sottoprogramma  posizionato  al¬ 
le  linee  da  300  a  340. 

Si  noteranno  le  referenze  ai  numeri  di  linea  del  pro¬ 
gramma  con  l’aiuto  di  marchi  (MUSIQUE  SIDODO). 

Dopo  il  lancio  del  programma  con  RUN  appaiono  il 
segnale  ed  il  tempo  (all'inizio  200). 

Il  giocatore  è  allora  alla  posizione  x=0,  y=0,  z  =  0  ;  si 
dovranno  introdurre  successivamente  le  tre  coordi¬ 
nate  x,y,z  della  camera  da  esplorare. 

Si  farà,  per  esempio,  13  poi  RETURN,  45  poi  RE¬ 
TURN,  ecc. 

Il  nuovo  segnale  è  visualizzato,  ed  il  tempo  decre- 
mentato  di  10. 

Si  continuerà  così  sia  fino  al  risultato  positivo  (arre¬ 
sto  del  gioco  e  fine  del  programma),  o  fino  all'appari¬ 
zione  di  3  numeri  (x,  y,  z)  senza  uscire  dal  program¬ 
ma,  il  che  significa  che  abbiamo  perso. 
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ESTENSIONI  POSSIBILI:  Sarà  senz’altro  indispensabile  migliorare  la 
grafica,  aggiungere  un’esplosione  (sonora  e  visiva) 
per  simbolizzare  l’esplosione  della  bomba,  visualizza¬ 
re  simbolicamente  la  posizione  nell'albergo,  ecc. 


10  REM  LA  BOMBA 

15  8ETC0L0R  2,3,2-POKE  752,1 

20  DIM  R*<10^S*<10>-iDPEN  #1,4,0,"K-" 

25  DIM  R<3>  ; FQR  1  =  1  T0  3  - R< I >=0 -NEXT  I 
30  MUSIQUE=500 

35  SIDÙDO=1080 • DOREMI =2000 • UTSOMI*3000=  BEEP-4080 
40  L=10O - T=200 

50  A=l  +  INT<RNDa>*<L-l>)-6=l+INT<RND<l>*<L-m-C=l+INT<RND<l>4:<L-l>> 

60  PRINT  “>M 
70  POR  1=0  T0  17 

80  P0SITI0N  1+18,4-PRINT  CHR*<160> 

30  POS  ITI OH  I  +  10; 5 : PRINT  CHR*<160> 

100  P0SITI0N  1+10, 6 -PRINT  CHR*<160> 

110  NEXT  I 

1 20  S=ABS  <  <  A' L+B+C4L ) - <  R< 1 > /L+R  <  2 ) +R  <  3  >  *L ) > 

130  S$=STR$03) >S=VAL<S$) 

140  IF  T=0  THEN  PRINT  "PERSO!.  La  soluzione  -";Aj"  ";Bj"  " ì C "RESTORE  SIDOD 

0 - GOSUB  MUSIQUE 

156  POSITION  12, 5 -PRINT  S-POSITIOH  22.5-PRINT  T 
160  RESTORE  DOREMI -GOSUB  MUSIQUE - T=T-INT<SQR<L> > 

170  IF  S=0  THEN  POSITION  2,20-PRINT  "BRAVO! “ -RESTORE  UTSOMI -GOSUB  MUSIQUE -  END 
180  POSITION  O;10-PRINT  "  -  X  - " 

130  POSITION  0, 12-PRINT  “  -  V 

280  POSITION  0; 14 -PRINT  "  -  Z  -" 

210  FOR  1=1  TO  3 
220  R$="" 

230  GOSUB  300 

240  R<  I  )=VAL<R$)  -  IF  R<I»=100  THEN  220 
250  NEXT  I 
260  GOTO  70 

300  POSITION  7,2*I+8-PRINT  "?" ;R$; - PRINT  "  "; -RESTORE  BEEP - GOSUB  MUSIQUE; 

310  GET  # 1 , CLR 

32«  IF  CLA=‘l 55  THEN  RETURN 

330  fi*  <  LEU  <  R*>+1>  =CHR*  <  CLA  ) 

340  GOTO  300 
5O0  FOR  M=1  TO  3 

510  READ  V- SOUND  0,V;18;4-FOR  TE=1  TO  10 -NEXT  TE -SOUND  0; 0,0,0 -FOR  TE=1  TO  5-NEX 
T  TE 

520  NEXT  M 
530  RETURN 
100O  DATA  64,63,63 
2000  DATA  63,53,47 
3000  DATA  63,40,47 
4000  DATA  40,40,40 


150  102  programmi  per  ATARI 


Lavagna  magica 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  disegno. 

Difficoltà  del  gioco:  bassa. 

IL  GIOCO:  Come  indica  il  titolo,  si  tratta,  semplicemente,  di  uti¬ 

lizzare  lo  schermo  come  una  lavagna,  manipolando 
un  punto  sullo  schermo  seguendo  8  direzioni,  con 
l’aiuto  dei  tasti  da  1  a  8,  secondo  la  convenzione: 


8 


Si  dispone  anche  della  possibilità  di  spostare  il  punto 
sullo  schermo  senza  lasciare  la  traccia  battendo  0  (il 
che  permette  la  cancellazione  parziale)  e  lasciare  di 
nuovo  la  traccia  ribattendo  0. 

Si  può  scegliere  il  colore  del  punto  battendo  su  un  ta¬ 
sto  da  A  a  H;  è  possibile  cancellare  tutto  lo  schermo 
battendo  P. 

IL  PROGRAMMA:  La  linea  30  contiene  la  scelta  delle  possibilità  di  colore. 
La  linea  50  stampa  il  punto  . 

Le  linee  da  60  a  90  controllano  gli  input. 

La  linea  130  chiama  uno  dei  quattro  sottoprogrammi 
che  effettuano  lo  spostamento. 

La  linea  140  verifica  che  non  si  esca  dai  limiti  dello 
schermo. 

La  linea  160  effettua  la  cancellazione  se  richiesta. 

Il  sottoprogramma  400-410  sceglie  il  colore;  300-310 
realizza  o  no  la  cancellazione. 

PER  GIOCARE:  Si  lancia  il  programma  con  RUN;  un  punto  appare 

verso  la  metà  dello  schermo.  Si  dovrà  battere  0  per 
spostarlo  senza  visualizzarlo. 

Se  si  batte  una  lettera  da  A  a  H,  il  colore  del  punto 
cambia.  Il  tasto  P  cancella  tutto,  e  si  ricomincia. 

Si  può  uscire  in  ogni  momento,  battendo  BREAK. 

ESTENSIONI  POSSIBILI:  Si  potrà,  naturalmente,  pensare  di  scrivere  un 
programma  identico  utilizzando  delle  tracce  di  seg¬ 
menti,  prevedere  un  sottoprogramma  che  permetta  il 
salvataggio  del  disegno  realizzato  per  un’ulteriore 
utilizzazione,  ecc. 

Utilizzare  il  joystick  per  spostare  la  penna  simulata. 
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10  REM  LAVAGNA  MAGICA 
15  OPEN  #1,4,0, "K : " 

29  DIM  C$ ( 8 > 

25  GRAPHICS  11 

30  C*=“ 91 234567" 

40  X=40 < Y-35 • C=4 

50  COLOR  C : PLOT  X,Y 
60  GET  #1,CLA 

70  IF  CLA>=ASC( "A" >  AND  CLA<=ASC( "H“ )  THEN  GOSUB  40© 

80  IF  CLA=ASC< "0" >  THEN  GOSUB  300 

90  IF  CLA=ASC( "P“ )  THEN  GOTO  25 

100  F=2*<CLA<53>-1 

11©  A=X‘6=Y 

120  U=CLA-48+2*<F~l> 

130  OH  U  GOSUB  1000,2000,3000,4000 
140  0=00*0  AND  X<80  AND  Y>=0  AND  Y<192> 

150  IF  D=8  THEN  GOSUB  5008 
168  IF  SO0  THEN  COLOR  0;PLOT  A,B 
1F0  GOTO  50 
380  S=A6S<S-1> 

310  RETURN 

400  C»2*VAL <  C»  < CLA-64 , CLA-64 ) ) 

410  RETURN 
1000  Y=Y+F 
2000  X-X+F 
2010  RETURN 
3080  GOSUB  2008 
4000  Y=Y-F 
4010  RETURN 
5008  X=A • Y=B 
5810  RETURN 
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Pubblicità 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  visualizzazione  pubblicitaria. 
Difficoltà  del  gioco:  nessuna. 

IL  GIOCO:  Un  testo  qualunque  dovrà  essere  introdotto  all’inizio 

del  programma.  Potrà  essere  relativamente  lungo  (4 
o  5  linee);  si  sceglierà  in  seguito  il  senso  e  la  velocità 
di  scorrimento,  al  seguito  di  ciò  il  testo  apparirà  (una 
sola  linea  per  volta)  e  comincerà  a  scorrere,  alla  velo¬ 
cità  scelta,  e  nel  senso  scelto. 

IL  PROGRAMMA:  Il  testo  sarà  introdotto  lettera  per  lettera  alle  li¬ 
nee  60-90,  con  almeno  18  caratteri. 

La  visualizzazione  sarà  in  grande  formato  grazie  alla 
linea  140. 

La  visualizzazione  sarà  spezzata  a  18  caratteri  o  più 
grazie  alla  linea  170. 

Lo  scorrimento  verso  la  sinistra  è  preparato  alla  li¬ 
nea  180  e  lo  scorrimento  verso  destra  alla  linea  190. 
Il  testo  sarà  visualizzato  alla  linea  170  e  la  durata 
della  visualizzazione  (velocità  di  scorrimento)  è  scel¬ 
ta  dalla  linea  200. 

La  linea  220  permetterà  di  cambiare,  se  ce  ne  sarà  bi¬ 
sogno,  le  condizioni  dello  scorrimento. 

La  linea  140  determina  i  diversi  colori  possibili. 

PER  GIOCARE:  Si  lancerà  il  programma  con  RUN  e,  all’apparizione 

della  domanda  INSERIRE  IL  TESTO,  si  introdurrà  il 
testo  da  fare  scorrere,  seguito  da  RETURN.  Si  ottie¬ 
ne  in  seguito  il  messaggio  SCORRIMENTO  A  DE¬ 
STRA  (D)  O  A  SINISTRA  (S)  al  quale  si  risponde  bat¬ 
tendo  sia  D,  sia  S. 

Poi,  alla  domanda  VELOCITÀ,  si  risponderà  introdu¬ 
cendo  un  piccolo  numero  per  una  velocità  rapida,  e 
un  grande  numero  per  una  velocità  lenta  (per  esem¬ 
pio,  da  0  a  40  o  più). 

Il  testo  comincerà  a  sfilare  dopo  aver  battuto  RE¬ 
TURN. 

Se  si  desiderano  cambiare  le  condizioni  dello  scorri¬ 
mento,  basta  battere  il  tasto  0  per  ritrovare  le  do¬ 
mande  SENSO  e  VELOCITÀ.  Si  batterà  BREAK  per 
interrompere  il  programma. 

ESTENSIONI  POSSIBILI:  Si  potrà  realizzare  una  visualizzazione  ondu¬ 
lante,  fare  risalire  le  linee  sullo  schermo,  ecc. 
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10  REM  PUBBLICITÀ' 

15  DIM  B*':300),C$<300>,S#<Ì> 

20  PRINT  ">" 

25  OPEN  #1,4,0, "K:" 

30  BS=“" 

40  PRINT  "Inserite  il  testo  •" 

SO  PRINT 

60  GET  #1,CLA 

70  IF  CLA=155  THEN  100 

SO  B*<LEN<B*>+1)=CHR*<CLA> 

30  PRINT  CHR*<CLA>; -GOTO  60 

1Ó0  PRINT  PRINT  < PRINT  "Scorrimento  <D>estra  o  <S>ini*tr*  INPUT  S* 
110  PRINT 

120  PRINT  "Velocita'  di  scorrimento  <da  0  a  50)  •“i< INPUT  V 
130  V=51-V 

140  GRAPHICS  2+16!F0R  1=0  TO  4  ; SETCOLOR  I, INT<RND<1)*16), 2*1+1 ‘NEXT  I 
150  T=LEN<8$> 

160  POSITION  0,5 

170  PRINT  #6;"  ";B$a,18)j“  " 

180  IF  S$="S"  THEN  B$<T+1 )=B*< 1 , 1 > :B$=B*<2, T+l ) 

180  IF  Sf ="D"  THEN  C$=6*!B*<1, 1)=C$(T,T) : B$<2, T)=C$< 1 , T-l > 

200  FOR  J=0  TO  10*V 

210  P=PEEK( 764 ) • POKE  764,255 

220  IF  P=50  THEN  100 

230  NEXT  J 

240  GOTO  160 
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Cappelli 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  gioco  di  riflessi,  per  due  gioca¬ 
tori. 

Difficoltà  del  gioco:  bassa. 

IL  GIOCO:  L’idea  è  molto  semplice:  due  personaggi  si  spostano 

l’uno  verso  l’altro  sullo  schermo  e  si  incrociano. 
Quando  si  incrociano,  è  possibile  che  scambino  i  loro 
cappelli.  Si  tratta  di  essere  il  primo  a  dire  se  c'è  stato 
o  no  lo  scambio  di  cappelli  durante  l’incrocio. 

IL  PROGRAMMA:  La  linea  40  contiene  il  disegno  dei  due  cappelli  (in 
due  variabili  alfanumeriche  B$  e  C$). 

La  linea  50  contiene,  in  un’altra  variabile  A$,  i  simbo¬ 
li  che  permetteranno  di  disegnare  i  personaggi. 

La  linea  70  permette,  se  è  il  caso,  lo  scambio  di  cap¬ 
pelli. 

La  variabile  T  della  linea  80  serve  ad  individuare  se 
c’è  stato  o  no  lo  scambio. 

Il  disegno  dei  due  personaggi  è  realizzato  da  un  ciclo 

I  (120-150),  e  il  loro  spostamento  è  realizzato  dalla  li¬ 
nea  160. 

II  test,  che  permette  o  no  lo  scambio  dei  cappelli,  è 
effettuato  alla  linea  180. 

Le  linee  da  200  a  260  determinano  se  il  primo  gioca¬ 
tore  che  ha  battuto  su  un  tasto  ha  perso  o  vinto. 


PER  GIOCARE:  Lanciare  il  programma  con  RUN. 

I  personaggi  cominciano  immediatamente  a  spostar¬ 
si  l’uno  verso  l’altro. 

II  giocatore  di  sinistra  dispone  dei  tasti  1  e  2  e  quello 
di  destra,  dei  tasti  9  e  0. 

Se  c'è  stato  scambio  di  cappello,  i  tasti  da  premere 
saranno  1  (a  sinistra)  e  0  (a  destra). 

Se  non  c’è  stato  scambio,  bisognerà  per  vincere  esse¬ 
re  i  primi  a  premere  2  (a  sinistra)  e  9  (a  destra). 
Apparirà  allora  il  messaggio  BRAVO  SINISTRA  o 
BRAVO  DESTRA,  o,  ancora,  PERSO  SINISTRA  o 
PERSO  DESTRA. 

ESTENSIONI  POSSIBILI:  Sarà  possibile  prevedere  una  visualizzazione  a 
colori,  con  una  animazione  dei  personaggi. 

Si  potrà  anche  complicare  il  gioco  a  piacere  con  vari 
oggetti  scambiati  in  maniera  casuale  (bisognerà  allo¬ 
ra  trovarne  la  lista  completa). 
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10  REM  CAPPELLI 

1 5  MUS I QUE=500 • OOM I S0= 1 008  > DOREMI =2000  < 000000=3000 
20  DIM  A*<24>,B*<3>,C$<3>,D»<3> 

25  SETCOLOR  1  -  15, S : SETCOLOR  2,11,2 
30  POKE  752,1 

40  B*="iPo";Ct=“iio":REM  battere  i  caratteri  di  questa  risa  prenendo  siMultanean 
ente  <CONTROL> 

50  A$="  t  qse  I  I  qxel  II  le  z"‘REM  vedere  48  escluso  I  che  si  ottiene  di  retta» 
ente  alla  tastiera 
60  X=8:Y=30'T=1 
70  D$=C*=C$=6*‘B*=D# 

60  T=A6o  (.  T—  1  ) 

30  PRINT  ">“ 

100  POSITIOH  X, 5 ‘PRINT  C$ 

110  POSITIOH  Y, 5 'PRINT  &* 

120  FOR  1=1  Tù  8 

130  POSITION  X, 1+5 'PRINT  A$<3*I-2,3*I> 

140  POSITION  Y, 1+5 'PRINT  fi$<3*I-2,3*I> 

150  NEXT  I 

160  X=X+1Y=V-1 

165  IF  Y=8  THEN  RUN 

170  FOR  1=1  TO  200'NEXT  I 

ISO  IF  X=Y  AND  RNOC1X0.5  THEN  78 

130  P=PEEK < 764 > 'POKE  764,255' IF  P*255  THEN  90 

135  IF  PO 30  AND  PO 31  AND  PO 48  AND  PO 50  THEN  30 

200  IF  X<=Y  THEN  240 

220  IF  <P=31  AND  T=l>  OR  <P=30  AND  T=0>  THEN  PRINT  "BRAVO!  Sinistra. “ 'RESTORE  DO 
M I  SO  '  OOSIJB  MUS  I QUE  '  END 

230  IF  <P=50  AND  T=l>  OR  <P=48  AND  T»0)  THEN  PRINT  "BRAVO!  Destra. " ‘RESTORE  DORÈ 
MIGOSUB  MUS IGUE ‘END 

240  IF  F-30  OR  P=31  THEN  PRINT  “PERSO  Sinistra." 

250  IF  P=48  OR  P=50  THEN  PRINT  "PERSO  Destra." 

260  RESTORE  000000  ■  GOSUB  MUSIQUE'END 

500  FOR  1  =  1  TO  3  *  READ  VA'SOUND  0, VA, 10,4'FOR  TE=1  TO  10‘NEXT  TE‘SOUND  0,0,0,0‘FO 

R  TE=1  TO  5‘NEXT  TE'NEXT  I 

510  RETURN 

1000  DATA  126,96,81 

2000  DATA  126,108,96 

3000  DATA  126,126,126 
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Combattimento  aereo 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  riflessi  (1  giocatore). 

Difficoltà  del  gioco:  elevata. 

IL  GIOCO:  Al  centro  dello  schermo,  si  trova  il  mirino  del  vostro 

aereo,  e  l’aereo  nemico  si  sposta  davanti  a  voi,  in  una 
maniera  che  potrà  sembrarvi  all’inizio  incoerente. 
Potete  spostarvi  in  tutte  le  direzioni,  grazie  alle  frec¬ 
ce  di  movimento,  e  dovrete  cercare  di  portare  l’aereo 
nemico  al  centro  del  mirino.  Sparate  battendo  0  e  ve¬ 
drete  i  vostri  proiettili  diretti  verso  l’aereo  che,  però, 
continua  a  spostarsi  anche  durante  il  vostro  sparo  e 
non  è  per  niente  facile  da  colpire. 

La  partita  continuerà  a  svolgersi  fino  a  che  l’avrete 
colpito  (messaggio  VINTO). 

IL  PROGRAMMA:  La  linea  70  disegna  l’aereo  nemico  il  cui  spostamento 
casuale  sarà  realizzato  dalle  linee  90  e  100. 

Le  linee  120-130  vi  permettono  il  pilotaggio  del  vo¬ 
stro  aereo. 

La  linea  170  disegna  il  mirino  del  vostro  aereo  con 
l'aiuto  di  caratteri  grafici. 

Il  sottoprogramma,  che  gestisce  lo  sparo,  va  dalla  li¬ 
nea  200  alla  linea  250,  ed  il  test  di  fine  partita  è  effet¬ 
tuato  alla  linea  240. 

La  linea  180  controlla  se  avete  sparato  o  no. 

PER  GIOCARE:  Appena  il  programma  è  stato  lanciato  con  l'ordine 

RUN,  dovete  manovrare  per  cercare  di  inquadrare 
l’apparecchio  nemico  nel  vostro  mirino. 

Per  questo,  disponete  delle  frecce  di  spostamento  (ta¬ 
sti  t,  1,  -»,«-)  e  potete  sparare  in  ogni  istante  pre¬ 
mendo  il  tasto  0. 

L'apparecchio  nemico  può  continuare  a  spostarsi  in 
maniera  casuale,  anche  quando  avete  sparato. 

La  partita  terminerà  con  la  visualizzazione  di  VIN¬ 
TO,  se  colpite  l’aereo  nemico. 

Si  può  anche  fermare  in  ogni  momento  battendo 
BREAK. 

ESTENSIONI  POSSIBILI:  Sarà  abbastanza  facile  utilizzare  una  grafica 
più  curata,  utilizzando  il  colore.  Si  potrà  anche  pen¬ 
sare  di  stabilizzare  la  posizione  dell'aereo  nemico  du¬ 
rante  lo  sparo. 

Potremmo  anche  introdurre  vari  aerei,  contare  i  pun¬ 
ti  od  il  tempo,  tenere  conto  della  scorta  di  carburan¬ 
te,  ecc. 
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10  REM  COMBATTIMENTO  AEREO 
30  GRAPHICS  0'POKE  752, 1 
40  SETCOLOR  1 , 2, 2 ■ SETCOLOR  2,8/6 
50  Aa5 '  B=  1 5 
60  M»21 

70  POSITION  B/A'PRINT  CHR*<10>jCHR*<24>jCHR*<8> 

80  U®  A 1 V=6 

90  A=A+2*INT<RND<1>*2>-1 
100  B*B+2*INT<RND<1>*2>-1 
110  P“PEEK<  764 ) : POKE  764,255 
120  B=B-2*<P®6>+2*<P-7> 

130  A*A-2*<P-14>+2*<P®15> 

140  B=B-36*<B>36>+36*<B<0> 

150  A»A-22*<A>22)+22*<A<0) 

160  POSITION  V,U'PRINT  " 

170  POSITI»!  18,9‘PRINT  "<»we"i 'POSITION  18,10'PRINT  "asd" ; 'POSITION  18,11'PRINT 
" zxc" j 'REM  battere  <CONTROL> 

180  IF  P=50  OR  N<21  THEN  GOSUB  200 
130  GOTO  70 

200  POSITI»!  29-N/N'PRINT  CHR*<6> t  'POSITION  N+9,N'PRINT  CHR*<7); 

205  SO»!D  0, 31+N, 18, 1 1-INT<IV2) 

210  POSITIQN  29-N,N=PRINT  "  'POSITION  N+9,N'PRINT  "  "> 

228  N=N- 1 

230  IF  N>9  THEN  RETURN 

248  IF  <A=3  OR  A=10  OR  A=U>  AND  <8-18  OR  B»19  OR  B=20>  THEN  PRINT  "VINTO. >EN 
D 

250  GOTO  60 
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Disegno  di  dadi 


RIFERIMENTI:  Programmazione:  difficile. 

Categoria  del  gioco:  lancio  di  dadi. 

Difficoltà  del  gioco:  bassa. 

IL  GIOCO:  Il  programma  proposto  è  soprattutto  interessante 

per  il  suo  lato  grafico  visto  che  permette  di  raffigura¬ 
re,  in  maniera  più  che  discreta,  da  1  a  5  dadi  sullo 
schermo,  utilizzando  una  tecnica  di  disegno  un  po’ 
particolare. 

Ogni  risposta  alla  domanda  NUMERO  DI  DADI?  pro¬ 
voca  immediatamente  un  nuovo  lancio  del  numero 
indicato  di  dadi. 

IL  PROGRAMMA:  La  linea  70  permette  di  controllare  se  c’è  stato  o  no 
intervento  su  un  tasto  da  1  a  5. 

Le  linee  90  e  100  inizializzano  le  due  variabili  di  dise¬ 
gno  dei  dadi. 

Il  ciclo  I  (110-200)  e  la  linea  120  e  130  disegnano  la 
cornice  del  dado. 

La  linea  140  realizza  il  lancio,  ed  il  ciclo  J  (150-190) 
disegna  i  punti  in  relazione  al  lancio  realizzato  (chia¬ 
mando  le  variabili  A$  e  B$). 

PER  GIOCARE:  Si  lancia  il  programma  con  RUN,  e  alla  domanda  NU¬ 

MERO  DI  DADI,  si  risponde  battendo  un  tasto  da  1  a 
5.  I  dadi  richiesti  sono  allora  raffigurati,  e  la  doman¬ 
da  NUMERO  DI  DADI  viene  posta  di  nuovo. 

Basterà  battere  BREAK  per  uscire  dal  programma. 

ESTENSIONI  POSSIBILI:  Si  potrà  conservare  la  parte  disegno  utilizzata 
in  questo  programma  per  realizzare  tutta  una  serie 
di  giochi  con  i  dadi,  con  una  rappresentazione  grafi¬ 
ca  di  qualità  discreta  e  facile  da  modificare  se  ce  ne 
fosse  bisogno. 
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IO  REM  DISEGNO  DI  DADI 
20  OPEN  #1,4,0, "K : " 

30  DIM 

40  GRAPHICS  0 ; SETCOLOR  1 , 7 , 2- SETCOLOR  2,11,1® 

5tì  POSITION  ®, 15PRINT  "Numero  di  dadi  = “i 
60  GET  #1 , CLH 

70  IF  CLfl<RSC<Ml“>  OR  CLfl>flSC<“5">  THEN  40 
80  F'RINT 

96  H*="  “  sR*(LEN<fì*)+l )="t"  :fi*<LEN<fi$)+l )=“  t  “  -fl$<LEN<A*>+l >="tt 

t“  REM  vedere  120 
1 W0  Bi=" 12131 43245 1 5525555“ 

110  POR  1=1  TO  CLfi-48 

120  POSITION  8*1-8, 2 -PRINT  "arrrrre"  !REM  battere  siwultavieamev.te  <CONTROL> 

136  POSITION  8*1-8, SPRINT  "rrrrrrc"  -REM  voir  120 
140  X=INT<RNDU>*6+1> 

150  FOR  J=1  TO  5 

160  IF  J<=3  THEN  S=5*VfiL <  B$  <  3*  <  X- 1 >  +  J , 3*<  X- 1 > +J  >  > -4 
170  IF  J <=3  THEN  POSITION  8*1-7, 2* J+l  -PRINT  fl*<S,S+4> 

180  POSITION  3*1-8,. J+2- PRINT  "I" -POSITION  8*1-2, J+2 : PRINT  "I" 

190  NEXT  J 
2O0  NEXT  I 
210  GOTO  50 
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Il  gioco  del  missile 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  facile. 

Categoria  del  gioco:  contro  TATARI. 

Difficoltà  del  gioco:  media. 

L’ ATARI  è  in  allarme:  siete  ai  comandi  di  un  aereo  in¬ 
caricato  di  una  missione  di  spionaggio  sul  suo  terri¬ 
torio;  il  vostro  scopo  è  di  sorvolare  la  base  nemica 
(raffigurata  da  un’H  ingrandita),  e  di  ritornare  sani  e 
salvi  alla  vostra  base;  ma,  appena  TATARI  vi  avrà  av¬ 
vistati,  manderà  al  vostro  inseguimento,  un  missile 
molto  perfezionato,  che  non  avrà  pace  fino  a  che  non 
vi  avrà  distrutto. 

Il  vostro  aereo  può  spostarsi  in  tutte  le  direzioni,  gra¬ 
zie  ai  tasti  da  1  a  8;  riuscirete  a  portare  a  termine  la 
vostra  missione? 

La  linea  50  disegna  la  base  nemica  da  sorvolare  (sot¬ 
toforma  di  un’H  ingrandita). 

La  linea  60  disegna  la  vostra  base  di  partenza. 

Le  linee  80  e  100  scelgono  l’istante  di  partenza  del 
missile. 

La  linea  120  disegna  il  vostro  aereo. 

Le  linee  140  e  150  definiscono  il  suo  movimento  se¬ 
guendo  8  direzioni,  utilizzando  i  sotto-programmi  al¬ 
le  linee  1000,  2000,  3000  e  4000. 

La  linea  160  assicura  la  partenza  del  missile  che  è  di¬ 
segnato  dalla  linea  170  ed  il  cui  spostamento  è  gesti¬ 
to  dalle  linee  180  e  190. 

Le  linee  200  e  210  controllano  la  fine  della  partita. 

Lanciare  il  programma  con  RUN. 

Il  campo  di  gioco  appare  e  potete  spostare  il  vostro 
aereo  utilizzando  i  tasti  da  1  a  8,  con  la  convenzione 
seguente: 


Dovete  farlo  girare  attorno  al  territorio  nemico  (se 
voi,  o  il  missile,  toccate  questo  territorio,  comincia 
una  seconda  partita). 

Se  il  missile  vi  distrugge,  ottenete  un  messaggio  COL¬ 
PITO,  e  la  partita  si  ferma. 

Battere  BREAK  per  fermare  la  partita. 
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ESTENSIONI  POSSIBILI:  Sarà  senz'altro  necessario  aggiungere  vari 
controlli  nel  programma  (l’aereo  ha  sorvolato  la  base 
nemica,  è  tornato  alla  propria  base?...)  Si  possono  an¬ 
che  prevedere  vari  livelli  di  gioco  facendo,  per  esem¬ 
pio,  variare  la  velocità  del  missile,  prevedere  l’utiliz¬ 
zo  di  trucchi  per  l’aereo,  l’esplosione  del  missile  do¬ 
po  un  certo  tempo,  ecc. 


10  REM  IL  GIOCO  DEL  MISSILE 
28  OPEN  #  1,4,CV IO" 

30  GRAPHICS  0  0-1=0 
40  POKE  752, 1 

50  P0SITI0N  17,5-PRINT  CHR$d ) iCHRf <4> 

SO  POSI  TI OH  0,20‘PRINT  "XXXX" ‘P0SITI0N  0,21 ‘PRIHT  "XXXX" 

70  U=15‘X=19 
80  S»INT<RND<l>#U+6> 

30  V  - 1 
100  S=S-1 
110  V=33 

120  POS  ITI  OH  V,  X  PRIHT  "V" 

130  GET  #1,CLA 
1 40  F —2*:  <  Clfl  CASO  <  "5"  )  )  ■ - 1 

150  OH  CLA-48+2‘4: < F- 1  )  GOSUB  1000,2080,3000,4000 

160  IF  SO0  THEH  100 

178  POS ITI OH  V,U= PRIHT  "<" 

180  LMJ-SGHOJ-X) 

190  V= V-SGH  (.  V- Y  > 

280  IF  U-X  AND  V=Y  THEH  PRIHT  "COLPITO. «EMD 
210  IF  <U=5>  AND  <V=1 7  OR  V=18)  THEH  30 
220  IF  X 04  AND  Y>=19  THEH  M*1 

230  IF  M=1  AND  X=19  AND  Y<=4  THEH  PRINT  "Missione  compiuta" : END 

248  GOTO  1 20 

1008  X=X-F 

2800  Y=Y+F 

2010  RETURN 

3800  GOSUB  2080 

4000  X=X+F 

401O  RETURN 
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RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


La  scimmia 


Programmazione:  facile. 

Categoria  del  gioco:  due  giocatori. 

Difficoltà  del  gioco:  elevata. 

Si  ispira  all’idea  già  vecchia  della  scimmia  che,  bat¬ 
tendo  a  caso  su  una  macchina  da  scrivere,  ha  delle 
possibilità  non  nulle  di  finire  per  scrivere  un  testo 
sensato. 

Qui  il  ruolo  della  scimmia  è  preso  dall’ATARI  che  fa¬ 
rà  apparire  dei  gruppi  di  3  a  6  lettere  durante  un 
tempo  relativamente  breve. 

Se  uno  dei  giocatori  stima  di  poter  riuscire  a  com¬ 
porre  una  parola  con  le  lettere  proposte,  deve  battere 
rapidamente  sul  suo  tasto  di  gioco  (1  o  0). 

La  parola  dovrà  allora  essere  accettata  o  rifiutata 
dall’avversario  che  risponderà  GIUSTO  o  SBAGLIA¬ 
TO. 

Ogni  parola  giusta  vale  1  punto,  ogni  parola  sbaglia¬ 
ta  leva  1  punto. 

La  linea  40  contiene  una  lista  V$  delle  vocali  correnti 
e  una  lista  C$  delle  consonanti  correnti. 

Sarà  possibile  modificare  queste  due  liste  per  au¬ 
mentare,  per  esempio, la  frequenza  di  apparizione  di 
certe  lettere  (potremo  così  mettere  due  E  in  V$,  o 
due  R  in  C$,  ecc.). 

La  linea  50  definisce  la  lunghezza  della  parola  (in 
principio  ,  da  3  a  6  lettere,  ma  si  può  ugualmente  mo¬ 
dificare  questa  lunghezza). 

Il  ciclo  I  (80-130)  permette  la  creazione  di  una  "paro¬ 
la"  prendendo  una  lettera,  sia  nell'alfabeto  completo, 
sia  nella  lista  C$  (linea  100),  sia  nella  lista  V$  (linea 
110). 

La  linea  150  temporizza  l’apparizione  del  risultato. 
La  linea  170  gestisce  la  fine  della  partita,  con  visua¬ 
lizzazione  del  punteggio. 

La  linea  180  guarda  se  uno  dei  due  giocatori  ha  reagi¬ 
to. 

Infine,  le  linee  200  e  210  contabilizzano  i  punti  di 
ogni  giocatore. 

Si  lancia  il  programma  con  RUN. 

La  prima  serie  di  lettere  è  visualizzata  sullo  scher¬ 
mo.  Il  giocatore  di  sinistra  dovrà  battere  1  se  vede 
che  può  realizzare  una  parola,  quello  di  destra  dovrà 
battere  0. 

Se  non  è  stato  battuto  niente  dopo  un  po’  di  tempo 
un’altra  serie  di  lettere  sarà  visualizzata. 
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Se  uno  dei  giocatori  ha  battuto  0  o  1,  appare  allora  la 
domanda  (G)IUSTO  o  (S)BAGLIATO  .  Si  risponde  G  se 
la  parola  è  corretta,  S  se  è  sbagliata,  seguito  da  RE¬ 
TURN. 

I  punti  sono  calcolati  dall'ATARI  che  visualizza  la  se¬ 
rie  di  lettere  seguente. 

Per  uscire  dal  programma  si  dovrà  battere  P  al  posto 
di  0  o  1;  viene  visualizzato  il  punteggio  finale  . 

ESTENSIONI  POSSIBILI:  Si  potrà  modificare  la  lunghezza  delle  parole, 
la  frequenza  di  apparizione  delle  lettere,  il  conteggio 
dei  punti,  la  regola  del  gioco,  ecc. 


10  REM  LA  SCIMMIA 
15  OPEN  #1,4,0, "IO" 

20  DIM  C*<12>,E*a>,R*<l),V*<5>,M$<6> 

30  MUSIQUE=300  < DOREMI “1000 ■ DOMISO-2000 
40  H=0  «  0=0  ; V$="AE I0U“ 1 C*“ " BCDGLMNPRST V“ 

50  X*INT <RNDC 1 >*4+3 > 

60  M*=““ 

70  GRAPHICS  2  =  FOR  1=0  T0  4=SETC0L0R  l, INT<RND<i>*16>,2*<I+l> -NEXT  I 
80  FOR  1=1  T0  X 
30  E*=CHR*aNT<RND<l>*26+65>> 

100  IF  RND< 1 > <0. 4  THEN  V=INT<LEN<C*>*RND< 1 )+l) -E*=C*<V, V) 

110  IF  RND< 1 > <0. 5  THEN  V=INT<LEN<V$>*RND< 1 >+l > <E*«V#<V, V) 

120  M*<LEN<M*)+1>=E* 

130  NEXT  I 

140  POSITION  0,5 'PRINT  #6;M* 'RESTORE  DOREMI 'GOSUB  MUSIOUE 

150  FOR  J=1  T0  508 = NEXT  J 

160  CLH=PEEK<?64>  POKE  764,255 

170  IF  CLA=18  THEN  PRINT  "  Punti  Sinistra  ■uiBi“  -  Punti  Destra  ■ " > A = RESTORE  DO 

MISO' GOSUB  MUSIOUE' END 

180  IF  CLAO50  AND  CLA031  THEN  50 

130  PRINT  "}”  PRINT  "  <G)iusto  o  <S>banliato  '  "  j  • INPUT  R* 

200  A=A+<R$="G"  AND  CLA=50)-<R*="S"  ANO  CLA=50> 

210  B=B+<R$="G"  AND  CLA=31 X-<R$="S"  AND  CLA=31> 

220  GOTO  50 
500  FOR  1=1  T0  3 

510  READ  VA : SOUND  0, VA, 10, 4= FOR  TE=1  T0  10 'NEXT  TE 'SOUND  0,0, 0,0= FOR  TE=1  T0  5=N 

EXT  TE 

520  NEXT  I 

536  RETURN 

1000  DATA  126,188,36 

2000  DATA  126,36,81 
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Il  gioco  del  15 


RIFERIMENTI:  Programmazione:  difficile. 

Categoria  del  gioco:  riflessione  (2  giocatori). 
Difficoltà  del  gioco:  media. 

IL  GIOCO:  È  un  gioco  per  due  giocatori,  abbastanza  vecchio,  che 

era  un  tempo  praticato  nelle  fiere.  Si  dispone  di  un 
tappeto  di  gioco  di  9  caselle,  e  ognuno  scommette  a 
turno  un  gettone  del  suo  colore,  su  una  casella  dispo¬ 
nibile. 

Il  primo  dei  due  giocatori  che,  con  tre  gettoni  esatta¬ 
mente,  riesce  a  realizzare  un  totale  di  15  ha  vinto. 

IL  PROGRAMMA:  Le  linee  I  50-80  disegnano  il  tavolo  di  gioco,  e  le  linee 
90-100  si  occupano  della  gestione  del  turno  dei  gioca¬ 
tori  (numero  1  o  2  per  ogni  giocatore,  e  gettone  O  o  X 
corrispondente). 

La  linea  1 10  attende  il  colpo  giocato. 

Il  ciclo  I  (120-140)  verifica  la  validità  del  colpo. 

La  linea  150  testa  la  fine  della  partita,  in  caso  di  par¬ 
tita  nulla,  e  la  linea  160  rifiuta  i  colpi  non  regolamen¬ 
tari  (con  ritorno  alla  situazione  iniziale,  linea  90). 

Le  linee  170  e  180  si  occupano  della  visualizzazione 
del  colpo,  e  la  linea  190  lo  registra  in  una  variabile 
R$.  La  parte  più  interessante  del  programma,  che  po¬ 
trebbe  servire  per  definire  una  strategia  per  la  mac¬ 
china,  va  dalla  linea  210  alla  linea  300:  si  utilizzano  3 
cicli  chiusi  per  verificare  se  uno  dei  giocatori  ha  otte¬ 
nuto,  con  3  gettoni,  un  totale  di  15.  Il  cambio  del  gio¬ 
catore  si  effettua  alla  linea  310. 

PER  GIOCARE:  Lanciare  il  programma  battendo  RUN. 

Il  campo  di  gioco  appare,  poi  la  domanda  GIOCATO¬ 
RE  1  :  X,  e  il  giocatore,  che  ha  scelto  le  X,  dovrà  dare 
il  numero  della  casella  dove  desidera  giocare;  se  è  li¬ 
bera,  il  suo  colpo  vi  sarà  registrato. 

Si  ottiene,  in  seguito,  il  messaggio  GIOCATORE  2:  O 
ed  il  secondo  giocatore  procede  nella  stessa  maniera. 
Se  uno  dei  giocatori  vince  (totale  di  15  in  tre  colpi), 
ottiene  il  messaggio  BRAVO  e  la  partita  si  ferma. 

In  caso  di  partita  pari,  la  macchina  visualizza  È  FI¬ 
NITA. 

Si  farà  un’altra  partita  battendo  RUN. 

ESTENSIONI  POSSIBILI:  La  più  interessante  sarà  senz’altro  la  defini¬ 
zione  di  una  strategia  per  la  macchina  (cercando  di 
evitare  che  la  macchina  giochi  sempre  il  5  quando  de¬ 
ve  cominciare). 
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Si  può,  naturalmente,  migliorare  la  grafica  e  intro¬ 
durre  effetti  sonori  per  i  diversi  messaggi. 

Si  potranno  modificare  la  lunghezza  delle  parole,  la 
frequenza  di  apparizione  delle  lettere,  il  conteggio 
dei  punti,  la  regola  del  gioco,  ecc. 


10  REM  IL  GIOCO  DEL  15 

15  DIM  0$<9>,X$O>,R#<9>,T*<3> 

2Q  6RHPHICS  0 • SETCOLQR  1 , 3 , 2 • SETC0L0R  2,3,10'POKE  752/ 1 
25  OPEN  #1,4,0,"K‘" 

3w  F=0 ; R*=" 123456789" 

35  MUS I  QIJ£=500 :  DGD0D0»  1 000  *  DOM I  SO=2000 

40  0*= . X*="“ 

50  POR  1=0  T0  24  STEP  3 

60  POSI TI 0N  1+5, SPRINT  CHR$ < 1 7 > i CHR$ (18); CHR* < 5 ) : POS ITI 0N  1+5,2  PRIMI  "I  I" 

65  POSITION  1+5,3 ■' PRIHT  CHR* <26> ; CHR*<  18> ;CHR*<3> 

70  POS ITI OH  1+6,4 -PRINT  <I+3>/3 
80  HEXT  I 

90  POSITION  0, 10 ! PRINT  "Giocatore  ";F+U 
100  IF  F=1  THEN  PRIHT  "  ■  0" 

105  IF  FOl  THEN  PRIHT  "  >  X" 

110  GET  #l,CLfi'IF  CLR<RSC< "  1  "  >  OR  CLA>ASC<"9">  THEN  110 
120  FOR  1  =  1  TO  LEtKRf) 

130  IF  CHR* (, CLA '/  =R*  <  I ,  I  )  THEN  GOSUB  170 
140  NEXT  I 

150  IF  VRL<R$>=0  THEN  POSITION  8,20'PRINT  "E'  finita . -  GESTORE  DOOODQ' GOSUB 

ItUS  I QUE  •  END 
160  GOTO  90 

170  IF  F=1  THEN  0$<L£N<0$)+1 )=CHR$CCLA> • POSITION  3*1+3, 2’PRINT  "0" 

ISO  IF  F=0  THEN  X$ ( LEU < X$ > + 1 ) =CHR$ < CLR ) 1  POS I T I ON  3*1+3, 2* PRINT  "X" 

190  R*<I, I>="0" 

200  IF  F=1  THEN  T$=G* 

205  IF  FOl  THEN  T*=X* 

210  IF  LEN<T*> <3  THEN  310 
220  FOR  1=1  TO  3 
230  IF  I=LEN<T*>  THEN  310 
240  FOR  1=1+1  TO  LENCT*) 

250  IF  J=LEN<T$>  THEN  310 
260  FOR  K=J+1  TO  LEN<T$> 

270  IF  VflL«Tf(I,  I)>+VAL<T*<J,.J>>+VAL<T$<K,K>>=15  THEN  330 

280  NEXT  K 

290  NEXT  J 

300  NEXT  I 

310  F=ABS<F-1> 

320  RETURN 

330  POSITION  0,10 

340  PRINT  "Bravo  giocatore  • IF  F=1  THEN  PRINT  “0. "'GOTO  368 
358  PRINT  "X." 

368  RESTORE  DOMI SO 'GOSUB  MUSIGUE 
378  END 

500  FOR  1=1  TO  3 

510  READ  VR ^ SOUND  0, VR, 10,4'FOR  TE-1  TO  10‘NEXT  TE'SOUND  0,0,0,0'FOR  TE=1  TO  5'N 

EXT  TE 'NEXT  I 

520  RETURN 

1080  DfiTR  63,63,63 

2000  DATA  126,96,81 
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RIFERIMENTI: 

IL  GIOCO: 

IL  PROGRAMMA: 


PER  GIOCARE: 


Destrezza 


Programmazione:  difficile. 

Categoria  del  gioco:  riflessi  (1  giocatore). 

Difficoltà  del  gioco:  elevata. 

Delle  cifre,  tra  0  e  9,  appariranno  a  caso,  in  diverse 
locazioni  dello  schermo.  Restano  visualizzate  per  un 
tempo  molto  corto.  Il  giocatore  deve  riuscire  a  batte¬ 
re  sul  tasto  numerico  corrispondente,  nel  momento 
in  cui  appare  la  cifra.  La  cifra  battuta  dal  giocatore 
sarà  allora  visualizzata  in  grande  formato  sulla  sini¬ 
stra  dello  schermo;  ed  ogni  risposta  esatta  dà  10  pun¬ 
ti.  La  durata  della  partita  è  casuale  ed  il  punteggio 
apparirà  alla  fine  della  stessa. 

Le  linee  50  e  60  contengono,  in  due  variabili  alfanu¬ 
meriche  C$  e  B$,  i  riferimenti  che  saranno  utilizzati 
per  disegnare  le  cifre  in  grande  formato. 

La  tabella  di  conversione  dei  caratteri  è  contenuta 
nella  stringa  T$. 

La  posizione  della  cifra  presa  dall’ ATARI  è  scelta  alle 
linee  70  e  80,  e  la  cifra  è  presa  alla  linea  90. 

La  linea  100  realizza  la  stampa,  e  la  linea  110  deter¬ 
mina  la  durata  della  visualizzazione.  La  linea  1 30  de¬ 
finisce  la  durata  del  gioco,  e  la  fine  della  partita  è 
trattata  alla  linea  150. 

La  linea  192  verifica  che  il  tasto  battuto  sia  una  cifra 
da  comparare  con  i  codici  tastiera  delle  cifre  conte¬ 
nute  in  T$. 

Il  ciclo  I  (200-230)  realizza  il  disegno  grande  formato 
della  cifra  battuta  dal  giocatore. 

Il  controllo  dell’esattezza  del  risultato  è  effettuato 
dalla  linea  240. 

Il  programma  sarà  lanciato  con  RUN,  poi  una  prima 
cifra  appare,  dopo  una  breve  pausa,  verso  il  centro 
dello  schermo.  Il  giocatore  dovrà  reagire  abbastanza 
in  fretta,  intanto  che  rimane  la  visualizzazione,  e  ri¬ 
batterla. 

La  cifra  che  ha  battuto  si  disegnerà  allora  in  alto  a 
sinistra  dello  schermo,  in  grande  formato. 

Se  il  risultato  è  esatto,  il  giocatore  segnerà  10  punti. 
Il  tempo  di  svolgimento  della  partita  dipenderà  dalle 
cifre  che  saranno  visualizzate. 

Alla’  fine  della  partita  apparirà  il  punteggio. 

Sarà  possibile  fermarsi  in  ogni  istante  battendo 
BREAK. 
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ESTENSIONI  POSSIBILI:  Si  può  immaginare  di  modificare  il  gioco  per 
fare  partecipare  vari  giocatori,  modificando  even¬ 
tualmente  la  visualizzazione  e  codificando  i  tasti  del¬ 
la  tastiera  messi  a  disposizione  di  ogni  giocatore. 

Si  potranno  anche  levare  dei  punti  ad  ogni  risultato 
sbagliato,  modificare  le  regole  di  calcolo  del  punteg¬ 
gio  e  la  durata  del  gioco,  ecc. 


10  REM  DESTREZZA 

20  DIM  B$<50)  ,  Ct<  12>  ,  T$<20) 

25  SETC0L0R  1,8,6 
30  F'OKE  752,  1 
40  T=100-S=0 ‘PRINT 

58  0$="****  **  *">REH  battere  uno  spazio  con  colore  inverso  al  posto  di  osni 

* 

60  6*=“ 144413333313121 131314413312131 12141 1333314141 14131“ 

65  T*="503 1 30262429275 1 5343 " 

7m  X*INT<RND<1>*15> 

80  Y= I UT < RMD U >*15+15) 

96  M=  I HT  <  RND  <  1  )  *  1 0  ) 

100  P0SITI0N  Y,X‘ PRINT  N 

110  FOR  1=0  T0  RNDC1 >*350+200 ‘NEXT  I 

120  P=PEEK < 764 > : POKE  764,255' IF  PO 255  THEN  190 

130  T =T-M 

140  POSI  TI OH  Y, X : PRINT  “ 

150  IF  T>=0  THEM  70 
160  PRINT  ">" 

170  PRINT  -PRINT  “il  tuo  punteselo  e'  di  "> Si"  su  100." 

180  FOR  T=1  TU  255  SOUND  0, T, 10, INT<T/16> ‘NEXT  T 1  END 
190  FOR  1=0  TO  9 

192  IF  T*<2*I+l,2*I+2>OSTR*<P>  THEN  NEXT  I 
194  IJ=I 

200  FOR  1=1  TO  5 

210  R=3*VflL<B*<5*U+I , 5*U+I > >-2 

220  P03ITI0N  2,2*1 ‘PRINT  C*<fi,fl+2> ‘POSITION  2, 2*1+1 ‘PRINT  CT<H,N+2> 

230  NEXT  I 

246  IF  0=N  THEN  S=S+10 
270  GOTO  130 
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Sottomarino 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  di  media  difficoltà. 

Categoria  del  gioco:  riflessi  (1  solo  giocatore). 
Difficoltà  del  gioco:  bassa. 

Manovrate  in  superficie  un  cacciasommergibili  e  dei 
sottomarini  passano  regolarmente  sotto  la  vostra 
unità,  a  differenti  profondità. 

Potete,  in  ogni  momento,  lanciare  le  bombe  di  pro¬ 
fondità  e  potete  anche  cercare  di  colpire  più  volte  lo 
stesso  sommergibile. 

Il  vostro  punteggio  sarà  visualizzato  in  permanenza 
sulla  sinistra  dello  schermo  (rapporto  di  numero  di 
colpi  centrati  su  numero  di  sottomarini  apparsi). 

La  linea  70  permette  all'ATARI  di  scegliere  la  profon¬ 
dità  del  sottomarino. 

La  linea  90  disegna  la  vostra  nave. 

Le  linee  100  e  110  visualizzano  il  punteggio  e  disegna¬ 
no  la  superficie  dell’acqua. 

Là  linea  120  disegna  il  sottomarino. 

Il  lancio  è  effettuato  da  un  programma  specifico  po¬ 
sizionato  alle  linee  200-240. 

Lo  spostamento  (molto  rapido)  della  vostra  nave  è 
realizzato  dalle  linee  170  e  180. 

Il  test,  che  permette  di  sapere  se  il  bersaglio  è  stato 
centrato  o  no,  è  effettuato  alla  linea  140. 

Battere  RUN  per  cominciare  la  partita. 

La  nave  sarà  spostata  grazie  alle  frecce  destra  e  sini¬ 
stra. 

Il  tasto  O  autorizza  il  tiro. 

Per  terminare  la  partita,  converrà  battere  BREAK 
oppure  aspettare  99  sottomarini. 


ESTENSIONI  POSSIBILI:  Sarà  abbastanza  elementare  migliorare  la 
qualità  grafica  del  gioco,  utilizzare  il  colore  e  i  suoni, 
fare  apparire  vari  sottomarini  che  si  spostano  a  dif¬ 
ferenti  velocità,  eventualmente  anche  permettere  ai 
sottomarini  di  lanciare  dei  siluri... 
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10  REM  SOTTOMARINO 
20  POKE  752, 1 

30  MUS I QUE=500 • 000000= 1 000  =  DOREM I =2000 
40  P=0'C=15'S=5 

50  PRINT  " > " ■ SETCOLOR  1,7,2'SETCOLOR  2,8/6 
60  POSITION  0/S -PRINT  “ 

70  T=27  ••  S=INT<RND<  1  >*8+4)  •  P-P+0.01 
80  X=1 

30  POSITION  C/2'PRINT  “  "iCHR*<138);CI«*<160>>CHR$a53>J  “ 

100  POSITION  0/3‘FOR  1=0  TO  13’PRINT  CHR*<6>iCHR*<7>; 'NEXT  I 

110  POSITION  0/ 18 ! PRINT  “Punteaaio  -"jP 

120  POSITION  T/ S : PRINT  CHR*<18> ;CHR*< 160) >CHR*< 18> > "  " 

130  IF  X=1  THEN  Y=C+2*X 

140  IF  S=X  ANO  <T+1=Y  OR  T+2=Y>  THEN  P»P+1 'POSITION  T/S'PRINT  "##*" 'RESTORE  DODO 
OO'GOSUB  MUSIQUE 

150  T=T-1 : IF  P>=93  THEN  POSITION  8/18'PRINT  “Finito. «RESTORE  DOREMI 'GOSUB  MUS 
IQUE'ENO 

160  IF  T <0  THEN  POSITION  Y/X'PRINT  “  “'GOTO  60 

170  C4_A=PEEKC 764)  'POKE  764/255 

ISO  C=C+3*< <CLA=7  AND  C<27>-<CLA=6  AND  C>0>> 

130  IF  CLAO50  ANO  X=1  THEN  30 

200  POSITION  Y/X 

210  PRINT  “  "'X=X+1 

220  IF  X>S  THEN  80 

230  POSITION  Y/X'PRINT  “0“ 

240  GOTO  90 

5O0  FOR  1=1  TO  3 ' READ  VA'SOUNO  0, VA, 10,4-FOR  TE=1  TO  5'NEXT  TE 'SOUND  0/0,0,0-FOR 
TE=1  TO  3'NEXT  TE ; NEXT  I' RETURN 
1000  DATA  63/63/63 
2086  DATA  126,108/36 
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Zombi 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  abbastanza  difficile. 

Categoria  del  gioco:  solitario. 

Difficoltà  del  gioco:  bassa. 

Gli  ZOMBI  sono  degli  esseri  malefici  che  cercheran¬ 
no  di  distruggervi,  ma  anche  voi  cercherete  di  utiliz¬ 
zarli  a  vostro  vantaggio,  per  sbarazzare  il  vostro  spa¬ 
zio  vitale  dai  buchi  neri  che  l’oscurano.  Sullo  scher¬ 
mo  è  disegnato  un  perimetro  che  rappresenta  il  vo¬ 
stro  spazio  vitale.  In  questo  perimetro,  appariranno 
in  maniera  casuale  gli  ZOMBI  (sono  delle  Z  invertite), 
i  buchi  neri  (dei  #)  ed  il  giocatore  (una  O).  Gli  ZOMBI 
convergono  verso  il  giocatore  per  cercare  di  cattu¬ 
rarlo,  ma  lui  si  sposta  più  rapidamente  di  loro  e  cer¬ 
cherà  di  far  loro  ingoiare  i  buchi  neri,  senza  farsi 
prendere. 

La  partita  termina  sia  con  la  sparizione  del  giocato¬ 
re,  sia  con  l’eliminazione  di  tutti  gli  ZOMBI. 

La  posizione  degli  ZOMBI  è  definita  da  un  array  Z  di¬ 
mensionato. 

Le  linee  da  50  a  120  (ciclo  I)  disegnano  il  perimetro, 
gli  ZOMBI  e  i  buchi  neri. 

La  linea  130  definisce  la  posizione  iniziale  del  gioca¬ 
tore. 

Un  secondo  ciclo  I  (150-240)  realizza  lo  spostamento 
del  giocatore. 

La  linea  210  legge  il  carattere  direttamente  nella  me¬ 
moria  dello  schermo  per  sapere  la  natura  dell’ostaco¬ 
lo  che  si  trova  in  Z(I,+4),Z(I). 

Le  linee  da  290  a  340  controllano  lo  spostamento  del 
giocatore. 

Dopo  aver  lanciato  l’esecuzione  con  RUN,  il  giocato¬ 
re  dovrà  spostarsi  utilizzando  le  4  frecce  e  cercando 
di  non  uscire  dai  limiti  del  terreno.  Dovrà  manovrare 
in  modo  di  fare  andare  gli  ZOMBI  sui  buchi  neri,  sen¬ 
za  farsi  lui  stesso  bloccare. 

Per  fermare  la  partita,  basterà  battere  BREAK. 


ESTENSIONI  POSSIBILI:  Sarebbe  interessante  ingrandire  il  campo  di 
gioco,  aumentare  il  numero  degli  ZOMBI  o  dei  buchi 
neri,  migliorare  i  controlli,  spostare  i  giocatori  in  mo¬ 
do  più  casuale,  eventualmente  modificare  la  regola. 
Si  potrà  anche,  naturalmente,  migliorare  la  qualità 
del  disegno. 
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13  REM  ZOMBI 
15  OPEN  #1,4.0, “K'" 

20  DIM  S*<1>,Z<10> 

25  POR  1  =  1  TO  10'Za)=0'NEXT  I 

30  MUSIQUE=50Q  =  DOREDO*1000 • DOMI 80=2000  *  DOREMI =3000 
40  GRAPH ICS  0  ' FQKE  752 , 1 
45  SETCOLOR  1 , 3, 6' SETCOLOR  2,13,4 
50  FOR  1=0  TO  21 

60  POSITION  1+1,0' PR I NT  CHR*<160> 

70  POSITION  0,1'PRINT  CHR*a60>  ' POSITION  23,1'PRINT  CHR*<160> 

80  IF  RND<1)<0.5  THEN  POSITION  I , INT<RND< 1 >*20+1 > 'PRINT  "#" 

90  S=  I NT (. RND <1)^1 4+1) 

100  Z<INT<I.-3)  +  l)=5+S 

110  POSITION  1+1,21 'PRINT  CHR*<160) 

120  NEXT  I 

130  K=  I  NT  <  RND  <  1  >  :#  1 8+ 1  ) 

140  P=0 

150  FOR  1=1  TO  4 
160  P=P+Z< I > 

170  IF  Z(I)=0  THEN  240 
175  PRINT 

ISO  POSITION  Z<I +4), Z<I > 'PRINT  "  " 

190  Z<  I  )=Za  )-SGN<Z<  I  >-S) 

200  ZCI+4)*Z<  I+4)-SGN<Z<  I'+4)-K> 

210  LOCATE  Z< 1+4), Z<I),EC' POSITION  Z<I+4),Z<I) 'PRINT  CHR*<EO;'IF  EC«flSC<“#“)  TH 

EH  Z<I)=0=GOTO  230 

220  POSITION  Z<  1+4), 'Zd) 'PRINT  "2" 

230  IF  Z< I )=S  AND  Z<I+4)«K  THEN  POSITION  0,23 'PRINT  "Hai  Perso  RESTORE  DOR 

EDO ' G0SU6  MUSIQUE ' GOTO  350 
248  NEXT  I 

258  IF  P=0  THEN  POSITION  0,23'PRINT  "BRAVO!  tutti  ali  zombi  sono  morti "i 'RESTORE 
DOMI SO' GOSUB  MUSI DUE ' GOTO  350 
260  POSITION  K,S' PRINT  “0" 

270  FOR  1=1  TO  1200 'NEXT  I 
280  POSITION  K,  S  ' PRINT  "  " 

290  CLA=PEEK<764)'P0KE  764,255 
3O0  K=K-2*  <  (.  CLA=6  )  -  <  CLA=7  )  ) 

310  IF  K<=0  OR  K>=23  THEN  POSITION  0,23'PRINT  "Peccato !...";' RESTORE  DOREMI 'GOSU 

B  MUSIQUE 'GOTO  350 

320  S=S-2*  <  <  CLA=  1 4  > -  <  CLA=  15)) 

330  IF  S<=0  OR  S>  =2 1  THEN  K=25 ■ GOTO  310 

340  GOTO  140 

350  GET  # 1 , CLA  < END 

500  FOR  1=1  TO  3 'READ  VA 'SOUND  0, VA, 10, 4 'FOR  TE*1  TO  5 'NEXT  TE 'SOUND  0,0, 0,0 'FOR 
TE=1  TO  3 'NEXT  TE 'NEXT  I 'RETURN 
1000  DATA  126,108,126 
2000  DATA  63,47,40 
3000  DATA  126,108,96 
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Diago 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  riflessi  (1  solo  giocatore). 
Difficoltà  del  gioco:  elevata. 

IL  GIOCO:  Si  lancia  il  programma  con  RUN  e  si  ottiene  un  pri¬ 

mo  messaggio  che  vi  informa  sulla  prestazione  da 
realizzare  (per  esempio,  5  punti  neri  o  17  punti  ne¬ 
ri...),  poi  il  tempo  è  visualizzato  e  decontabilizzato,  a 
partire  da  10  secondi.  Il  gioco  comincia  quando  si  ar¬ 
riva  a  0  secondi.  Dei  cerchi  appaiono  allora  in  basso 
a  sinistra  dello  schermo,  formando  una  linea  diago¬ 
nale  dovrete  battere  il  tasto  0  per  fermare  la  visualiz¬ 
zazione  dei  punti  appena  stimerete  che  il  numero  di 
punti  richiesti  all’inizio  è  apparso  sullo  schermo. 

Si  ottiene  allora  il  messaggio  BRAVO  o  PERSO  se¬ 
condo  il  risultato  ottenuto. 

IL  PROGRAMMA:  Il  numero  di  punti  neri  sarà  scelto  a  caso,  alla  linea 
50. 

Il  tempo  è  calcolato  dalle  linee  60-120. 

I  punti  sono  stampati  e  la  linea  diagonale  è  disegnata 
dalla  linea  140. 

La  pressione  del  tasto  0  è  rivelata  alla  linea  170,  e  la 
linea  190  controlla  la  fine  della  partita  (nessun  rifles¬ 
so). 

I  messaggi  finali  sono  eseguiti  dalle  linee  da  190  a 
230. 

PER  GIOCARE:  Si  lancerà  l’esecuzione  con  RUN. 

Si  ottiene  allora  la  visualizzazione  della  frase  IL 
BUON  RIFLESSO  È  A  .  .  .  che  indica  il  numero  di 
punti  vincenti. 

II  tempo  sarà  in  seguito  decontabilizzato  sotto  forma 
ATTENZIONE:  RESTANO  .  .  .  SECONDI  che  indica 
il  tempo  rimanente  prima  dell’apparizione  della  dia¬ 
gonale. 

Alla  visualizzazione  di  0,  la  diagonale  appare  e  co¬ 
mincia  a  spostarsi  sullo  schermo. 

Se  si  ritiene  che  il  numero  di  punti  richiesti  è  stato 
raggiunto,  si  dovrà  premere  il  tasto  0. 

Apparirà  allora  BRAVO  se  si  vince,  o  PERSO  nel  caso 
contrario;  poi  la  frase  ALTRA  PROVA  (S/N)  appare, 
rispondere  S  per  fare  un’altra  partita. 

ESTENSIONI  POSSIBILI:  Si  potrebbe  pensare  ad  un  adattamento  del 
gioco  a  due  o  più  giocatori,  lasciando  che  la  diagona¬ 
le  si  formi  completamente  e  testarne  la  coincidenza 
alla  pressione  del  tasto  assegnato  al  giocatore. 
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Si  può  anche  realizzare  una  grafica  più  curata  e  mo¬ 
dificare  il  principio  dello  spostamento  degli  oggetti 
sullo  schermo  (spostamento  orizzontale,  verticale  o 
apparizione  a  caso...). 


16  REM  01  FIGO 

20  MUS I QUE=500  ^  SOM I DO* 1 000 1  DOREMI =2000 
30  OPEN  #1/4,0/  "IO  “ 

40  PRINT  11  >  “ 

50  X=INT<RND<  0*18+3) 

60  S=10 

?0  PRINT  “  Il  buon  riflesso  e'  a  "iX 

80  POSITION  4/10PRINT  "Attenzione!  restano  "jS>"  secondi. “/ 

90  S=S-1 

100  FOR  1=1  TO  5 : SOUND  0, 126, 10,4 'NEXT  I‘FOR  1=1  TO  400‘NEXT  I 
HO  PRINT  "}" 

120  IF  SO0  THEN  70 
130  U=0 

140  POSITION  0,23‘PRINT  "0" 

150  FOR  1=1  TO  30  :  NEXT  I 
160  U=U+1 

170  P=PEEK(764)P0KE  764,255 
130  IF  P=50  THEN  210 

130  IF  U> 22  THEN  PRINT  "Perso ! " • RESTORE  SOMIDOGOSUB  MUSIOUE’GOTO  230 
200  GOTO  140 

210  IF  UOX  THEN  U=23  =  GOTO  190 

220  PRINT  "BRAVO  ! " 1 RESTORE  DOREMI • GOSUB  MUSIQUE 

230  PRINT  'PRINT  "Un'altra  prova  <S^N>  ", 

240  GET  #  1 ,  CLA 1 1 F  CLA=ASC<  "S"  >  THEN  40 
250  END 

500  FOR  1=1  TO  3 'READ  VA' 'SOUND  0, VA, 10, 4 : FOR  T=1  TO  10 'NEXT  T  SOUND  0,0,0,0'FOR 
T=1  TO  5 ‘NEXT  T'NEXT  I ‘ RETURN 
1000  DATA  81/36/126 
2O08  DATA  63,53,47 
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Recomat 


RIFERIMENTI: 


IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  facile. 

Categoria  del  gioco:  soluzione  del  programma  Nico- 
mat. 

Difficoltà  del  gioco:  nessuna. 

È  una  replica  del  programma  Nicomat,  proposto  nel¬ 
le  pagine  precedenti;  inserite  i  resti  successivamente 
delle  divisioni  per  3,  5  e  7  di  un  intero  compreso  tra  1 
e  100,  e  TATARI  calcola  e  visualizza  questo  intero.  Il 
metodo  usato  può  d’altronde  essere  generalizzato  (a 
voi  trovare  come). 

Le  linee  30-50  visualizzano  qualche  linea  di  spiegazio¬ 
ne  (gli  spazi  che  mancano  apparentemente  sono  volu¬ 
ti). 

La  linea  50  aspetta  che  battiate  un  resto,  che  sarà  ri¬ 
fiutato  se  è  incompatibile  con  la  divisione  col  nume¬ 
ro  visualizzato. 

La  linea  100  immagazzina  i  resti  in  una  variabile  non 
dimensionata  A  (S). 

La  linea  190  rivisualizza  i  resti  inseriti. 

Le  linee  210-230  gestiscono  la  fine  della  partita. 

Si  lancia  il  programma  con  RUN.  Appare  un  testo  di 
presentazione  poi  il  messaggio  "RESTO  PER:  3,  5,  7” 
appare. 

Si  deve  rispondere  e  la  soluzione  è  visualizzata  appe¬ 
na  si  sono  dati  i  tre  resti. 

Per  un’altra  partita,  battere  S  alla  domanda  UN’AL¬ 
TRA  PROVA  (S/N). 

Battere  N  per  finire. 


ESTENSIONI  POSSIBILI:  Si  può  estendere  il  programma  agli  interi  da  1 
a  1000,  utilizzando  i  resti  per  3,  5,  7,  e  11;  si  può  ag¬ 
giungere  il  suono  ed  il  colore  per  rendere  il  program¬ 
ma  più  attraente. 
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10  REM  RECOMAT 

15  OPEN  #1,4,0, "K""‘ GRAPHICS  2 
20  DIM  A<3> 

25  POKE  752,1 

30  PRINT  "INSERITE  I  TRE  RESTI  DELLE  DIVISIONI  DI  UN  NUMERO  INTERO  INFERIORE  A  1 
00,  PER  3,5  E  7." 

60  1=3 ; S=1 

70  POSITION  3,0'RESTORE  ‘GOSUB  500 
8w  PRINT  #6) "RESTE  ✓  PAR‘  I 

85  POSITION  3,1 ‘PRINT  #6;  “ - " 

37  POSITION  12, 4 ‘PRINT  #6;" - " 

Sa  POSITION  0,5 ‘PRINT  #6; "RESTO  PER*  3  5  7"  REM  battere  la  strina»  da  starnare 
in  caratteri  inversi 

95  C.ET  #1,CLA‘IF  CLA<ASC< “0" >  OR  CLR>=flSC<STR*< I > >  THEN  95 
1O0  H<S>=CLH-48 

105  POSITION  9+1, 3 ‘PRINT  #6;H<INT<I/’2)) 

110  S=S+1‘ 1=1+2 

120  IF  I <8  THEN  70 

130  T=Aa>*70+A<2>*21+A<3>*15 

200  IF  T> 105  THEN  T=T~105‘GOTO  200 

210  GRAPHICS  2+16+32 ‘POSITION  0,8‘PRINT  #6; "soluzione  *"<T 

228  FOR  T=1  TO  1008NEXT  T ‘GRAPHICS  2+32 ‘PRINT  "  Un'altra  Prova  <S  N>  “ ; ‘ GEI  # 
1 ,  CLA 

230  IF  CLA=ASC< "S">  THEN  RUN 
240  END 

500  FuR  IT=1  TO  3 < READ  VA‘SOUND  0,VR, 10,4‘FOR  TE=1  TO  10=NEXT  TE ‘SOUND  0,0,0,0‘F 
OR  TE=1  TO  5‘NEXT  TE ‘ NEXT  IT ‘RETURN 
1000  DATA  63,53,47 
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Caccia  al  sottomarino 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  gioco  di  riflessione. 

Difficoltà  del  gioco:  media. 

IL  GIOCO:  Siete  a  bordo  di  una  nave,  incaricata  di  scovare  un 

sommergibile  nascosto  da  qualche  parte  nel  vostro 
settore;  dovete  spostarvi  fino  ad  arrivare  sopra  al 
sottomarino  e  sparare  ad  una  certa  profondità;  ma 
attenzione:  il  sommergibile  è  anch’esso  mobile;  e  spe¬ 
gnerà  i  suoi  motori  solo  quando  sarete  esattamente 
sulla  verticale,  per  non  essere  scoperto. 

IL  PROGRAMMA:  Il  ciclo  I  (60-120)  visualizza  il  terreno  di  gioco. 

La  linea  140  definisce  la  posizione  iniziale  del  sotto¬ 
marino;  la  linea  150  permette  il  suo  spostamento, 
controllato  dalla  linea  160  (si  resta  nei  limiti  del  cam¬ 
po). 

La  linea  180  visualizza  la  vostra  posizione. 

Le  linee  162-166  controllano  il  vostro  spostamento. 
La  distanza  è  calcolata  alla  linea  250,  visualizzata  al¬ 
la  linea  260  e  testata  alle  linee  270  e  280. 

Il  test  di  fine  partita  è  effettuato  alla  linea  310. 

PER  GIOCARE:  Si  lancia  il  programma  con  RUN  e  si  inserisce  la  di¬ 

mensione;  appare  la  griglia  di  gioco.  Siete  all’inizio 
alla  posizione  (0,0)  e  vi  spostate  con  le  frecce. 

Dopo  ogni  spostamento  appare  la  nuova  distanza  del 
sottomarino;  ad  ogni  colpo  il  sottomarino  si  sposta. 
Se  riuscite  a  piazzarvi  sulla  verticale,  la  distanza  0. 
Sparate  dando  una  profondità  intera  (tra  2  e  4,  limiti 
inclusi).  Se  lo  mancate,  si  riposiziona  in  un  posto 
qualunque,  e  si  ricomincia;  se  lo  colpite,  ottenete  il 
messaggio  BRAVO  e  la  partita  termina  battendo  nuo¬ 
vamente  alla  tastiera. 

Si  può  fermare  il  programma  in  ogni  momento  bat¬ 
tendo  BREAK. 

ESTENSIONI  POSSIBILI:  È  possibile  prevedere  un  miglioramento  della 
grafica,  migliorare  le  possibilità  di  spostamento  del 
caccia  (un  po’  lento,  in  questa  versione),  prevedere 
dei  percorsi  più  sofisticati  per  il  sottomarino,  di  met¬ 
tere  un  contatore  di  tempo... 
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10  REM  CACCIA  AL  SOTTOMARINO 
20  OPEN  #1,4,0,"K‘M 

40  PRINT  “Dimensione  della  arislia  >mi> INPUT  H 
45  POKE  752,1 
50  PRINT  ">“ 

60  FOR  1*0  TO  H 

70  POSITION  2*1+4, 0-PRINT  1 

80  POSITION  1,2*I+2=PRINT  I 

90  FOR  J*8  TO  H 

100  POSITION  2* J+4 , 2*1+2 1 PRINT 

HO  NEXT  J 

120  NEXT  I 

130  1=1 -X=0-Y*0i POSITION  4, 2' PRINT  CHR*<160> 

140  V=INKRND<1>*H>-U*INT<RND<1>*H> 

150  U=IJ+I !  V=V+I 

ISO  IF  <U<0  OR  U>H  OR  V<0  OR  V>H>  THEN  I— I'GOTO  150 
162  GET  #1 , CLA 

164  Y=Y-(CLA=43  AND  Y>0>+(CLA*42  AND  Y<H> 

166  X=X-<CLA=45  AND  X>0>+<CLA»61  AND  X<H> 

170  POSITION  2*Y+2,2*X+2'IF  YO0  THEN  PRINT 
180  POSITION  2*Y+4 , 2*X+2 ' PR I NT  CHR*<160> 

190  POSITION  2*Y+6, 2*X+2:  IF  YOH  THEN  PRINT 
200  POSITION  2*Y+4,2*X'IF  XO0  THEN  PRINT  'V 
210  POSITION  2*Y+4,2*X+4!  IF  XOH  THEN  PRINT 
250  D= I NT  < SOR  <  ABS  ( X-V ) A2+ABS  <  Y-U ) A2 ) > 

260  POSITION  29, 10:F'RINT  "Dist.  %STR*<D>JM 
270  IF  D=0  THEN  300 
280  IF  D<3  THEN  150 
290  GOTO  162 

308  POSITION  29, 12:PRINT  "Prof.  '*;•  INPUT  D 

310  IF  D= I NT < RND <  1  )  *3+2  >  THEN  POSITION  23,15‘PRINT  "BRAVO! "GET  #1,CLA  =  END 
320  FOR  TE=0  TO  S^SOUND  0, 126,10,4*<TEx2=INT<TE/2>>iNEXT  TE 
330  GOTO  140 
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Tastiera 


RIFERIMENTI:  Programmazione:  facile. 

Categoria  del  gioco:  gioco  di  riflessi  (imparare  la  ta¬ 
stiera). 

Difficoltà  del  gioco:  elevata. 

IL  GIOCO:  Una  riproduzione  della  tastiera  del  vostro  calcolato¬ 

re  appare  sullo  schermo;  un  punto  appare  sotto  il  ca¬ 
rattere  che  si  deve  battere  sulla  tastiera.  Più  si  batte 
in  fretta  e  più  il  punto  si  sposta  rapidamente  (il  tem¬ 
po  trascorso  dall’inizio  appare  in  fine  partita). 

IL  PROGRAMMA:  Una  variabile  A$  dimensionata  alla  linea  60,  conterrà 
la  lista  dei  relativi  tasti.  I  valori  dei  tasti  sono  inseri¬ 
ti  dalla  linea  70  alla  linea  120  per  chiamata  di  un  sot¬ 
toprogramma  posto  in  300. 

La  variabile  VA$  contiene  la  totalità  dei  codici  ATA- 
SCII  che  corrispondono  ai  tasti  della  tastiera. 

I  cicli  chiusi  J  (130-170)  e  I  (140-160)  disegnano  la  ta¬ 
stiera. 

La  linea  1 80  definisce  la  posizione  del  punto  stampa¬ 
to  dalla  linea  190. 

II  tasto  battuto  è  testato  alla  linee  210-230  e  il  punto 
è  cancellato  dalla  linea  250. 

Le  visualizzazioni  di  fine  sono  realizzate  alle  linee 
270-290. 


PER  GIOCARE:  Si  lancia  il  programma  con  RUN.  Si  dispone  allora  di 

qualche  secondo  per  battere  il  tasto  che  occupa  la  co¬ 
lonna  sopra  la  pallina,  poi  un  altro  punto  è  visualiz¬ 
zato,  ecc. 

La  durata  della  partita  non  è  limitata;  basta  battere  0 
per  ottenere  il  punteggio,  ed  il  tempo  totale. 

Fare  RUN  per  un’altra  partita. 

ESTENSIONI  POSSIBILI:  Si  potrà  pensare  di  fare  lampeggiare  le  lette¬ 
re,  o  di  visualizzarle  a  colori,  al  posto  di  indicare  la 
colonna  con  una  pallina.  Si  potranno  fare  apparire  le 
lettere  giuste  nella  parte  inferiore  dello  schermo  ed 
eventualmente  allenarsi  a  battere  un  testo  che  sfila 
in  alto  sullo  schermo,  lettera  per  lettera. 
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10  REM  TASTI ERA 
40  GRAPHICS  2 
50  T=0=S=0=P=0 

60  DIM  A**' 30) ,  S*< 10) / VSK20) > VA$<60> 

70  S*= " QHER  T YU I OR " « V*=" 4746424045431 1 130810" < J=1 
80  GOSUB  300 

90  S$=  " ASDFGHJKL  i " • V$= "636258566 1 570 1 050002 “ = J=2 
100  GOSUB  300 

110  S*= " ZKCV6NM • . / " * V*= " 2322 181621 3537323438 " < J=3 
120  GOSUB  300 
130  POR  J=1  TO  3 
140  POR  1=1  TO  10 

158  POSITIOH  I+J+2, 24J : PRINT  #6;fi$<104<J-l)+I,  104<J~1)+I) 
168  HEXT  I 
170  HEXT  J 

1 80  X=  I  NT  RHD  <  1  >  *  1 8+ 1  >  ••  Y=  I  NT  <  RND  < 1 >  43+ 1  ) 

1 90  POS I T  I OH  X+Y+2 , 24Y+ 1 = PR I HT  #6  >  " * " 

195  POKE  764 , 255  MULA 1=PEEK< 764) 

200  POR  F=1  TO  1 00+RHO < 1 > 480 : CLA=PEEK < 764 ) 

205  T=T+1 

210  IF  CLANGLA 1  THEH  HEXT  F 

220  I P  CL.A=VRL  <  VA*  <  204  <  Y- 1  >  +24X- 1 , 204  <  Y- 1  )  +24X  )  >  THEH  S=S+ 1 
230  IF  CLA=50  THEH  270 
240  P=P+ 1 

258  POSITIOH  X+Y+2, 24Y+1 ‘PRIHT  #6;"  " 

260  GOTO  180 

270  PRIHT  Si"  Giuste  su  "ìPì"  prove." 

275  PRIHT  "Il  tuo  tempo  <";T 

280  POR  T=1  TO  1000  HEXT  T • GRAPHICS  0 : EHD 

300  A* ( 1 04 < J- 1 >  + 1 > =S* 

3 1 0  VA*  < 204 ( J- 1 )  + 1 > =V* • RETURN 
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LIVELLO  5 


N. 

Nome  del  programma 

Tema  e  particolarità 

1 

Calcolatrice 

Un  programma  di  simulazione  molto 
reale 

2 

Smokey 

Fumate  senza  rischi  con  questo  originale 
programma  per  1  giocatore 

3 

Evasione 

Ci  vorrà  molta  fortuna  per  riuscirci 

4 

Corsa  automobilistica 

Un  gioco  di  riflessi  non  molto  difficile 
per  1  giocatore 

5 

Poker 

Una  base  di  partenza  per  mettere  a  punto 
il  vostro  programma 

6 

Scacchi 

Un  programma  semplificato  per  2  gioca¬ 
tori 

7 

Pericolo  spaziale 

Sarete  abbastanza  abili  per  evitare  tutte 
le  meteoriti? 

8 

Tic  Tac  Toe 

Un  classico  ma  non  senza  interesse  (2  gio¬ 
catori) 

9 

Dama 

Per  2  giocatori:  classico 

10 

Anagrammi 

Un  buon  gioco  di  riflessi:  per  2  giocatori 

11 

Uova 

Non  lasciate  fare  la  gallina  diabolica 

12 

Quattro  a  quattro 

Un  gioco  di  riflessione  un  po’  difficile  per 
2  giocatori 

13 

"Puzzle”  di  lettere 

Un  proverbio  è  nascosto:  a  voi  scoprirlo 

14 

Bersagli 

Un  po’  di  abilità  e  molta  fortuna 

15 

Gocce 

Una  vera  gag  visiva,  da  esplorare 

16 

Ostacoli 

Molti  ostacoli  da  evitare  in  questo  gioco 
di  abilità  per  1  giocatore 

17 

Catture  nello  spazio 

La  missione  sarebbe  facile  senza  queste 
maledette  meteoriti 

18 

Anomalia 

Esercitate  la  vostra  perspicacia  ricono¬ 
scendo  i  simboli 

19 

Tanti  in  uno 

Un  terreno  di  gioco  e  le  pedine,  per  2  gio¬ 
catori 

20 

Percorso  del  cavaliere 

Molto  spettacolare  e  istruttivo  per  più  di 
un  motivo 

21 

Muro  di  mattoni 

Un  classico  in  versione  completa 

22 

Othello 

Per  2  giocatori:  gira  le  pedine  per  voi 

23 

"Puzzle”  dispettoso 

Un  sottoprodotto  del  gioco  di  Sam  Lloyd 

24 

Super  scorrimento 

Dopo  le  cifre  pari  e  dispari  perché  non 
anche  le  lettere 
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Le  tecniche  particolari  all'ATARI 


IL  RICONOSCIMENTO  DEGLI  OGGETTI  SULLO  SCHERMO: 
LETTURA  DI  UN  CARATTERE  POSTO  ALLA  LINEA  Y, 
COLONNA  X,  CON  LOCATE  X,Y,C 

L’ ATARI  dispone  di  un'istruzione  specifica,  molto  utile  per  numerosi  gio¬ 
chi,  che  permette  di  riconoscere  il  codice  ASCII  del  carattere  presente  sul¬ 
lo  schermo  all’intersezione  tra  la  colonna  X  e  la  linea  Y:  questo  permette¬ 
rà  di  identificare  facilmente  questo  carattere;  C  contiene  il  codice  ASCII 
del  carattere  presente. 

Attenzione,  questa  lettura  dello  schermo  non  si  mantiene,  conviene  ripor¬ 
tare  il  valore  che  leggete  con  l’aiuto  di  una  visualizzazione  posizionata  alle 
stesse  coordinate  dello  schermo. 

LE  ISTRUZIONI  POP  e  TRAP 

Quando  siete  in  un  sottoprogramma  (vedere  livello  1)  ne  uscite  sempre  con 
RETURN.  Può  essere  interessante  uscire  direttamente  a  un  indirizzo  dato. 

L’istruzione  POP  permette  di  farlo  indicando  all'ATARI  di  accorgersi  che  il 
sottoprogramma  è  terminato.  Nel  caso  contrario  se  il  numero  di  livelli  di 
sottoprogrammi  è  limitato,  otterrete  subito  un  superamento  di  capacità. 

È  intelligente  imparare  dagli  errori  per  scrivere  un  programma.  Così  posi¬ 
zionare  un  punto  a  delle  coordinate  X,Y  fuori  dallo  schermo  provoca  un 
errore  e  arresta  il  programma;  l’istruzione  TRAP  permette  di  rivelare  que¬ 
sto  errore,  senza  che  il  calcolatore  intervenga,  riportando  il  programma 
all’indirizzo  dove  l’errore  è  stato  generato. 

Così  TRAP  5000  rinvia,  in  caso  d’errore,  il  programma  all’istruzione  5000. 

Per  eliminare  questa  possibilità  basta  usare  TRAP  seguito  da  una  cifra  su¬ 
periore  a  32767. 

IL  JOYSTICK 

È  una  delle  attrattive  dell’home  computer  ATARI,  perché  facilita  enorme¬ 
mente  gli  spostamenti  dei  mobili  sullo  schermo. 

Molti  giochi  di  questo  libro  potranno  essere  modificati  per  una  miglior 
utilizzazione,  con  l’aiuto  di  questo  "manico  di  scopa”:  il  programma  4  a  4 
ne  è  l’illustrazione. 
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Calcolatrice 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  molto  difficile. 

Categoria  del  gioco:  simulazione  di  una  calcolatrice. 
Difficoltà  del  gioco:  media. 

Si  tratta  della  simulazione,  con  visualizzazione  in 
grande  formato,  del  funzionamento  di  una  piccola 
calcolatrice  tascabile,  del  tipo  a  4  operazioni.  Le  ap¬ 
plicazioni  di  questo  programma  sono  evidenti  e  il  suo 
funzionamento  è  semplice  da  controllare. 

Le  variabili  B$  e  C$,  delle  linee  20  e  30,  contengono  le 
informazioni  codificate  che  permetteranno  il  disegno 
delle  cifre  in  grande  formato. 

Le  linee  60-150  si  occupano  della  gestione  degli  inse¬ 
rimenti.  Il  ciclo  1(160-190)  realizza  la  raffigurazione, 
in  grande  formato,  delle  cifre  sullo  schermo,  man 
mano  che  gli  input  arrivano. 

Il  punto  decimale  ed  il  segno  —  sono  gestiti  dalle  li¬ 
nee  200  e  210. 

Il  numero  totale  dei  simboli  inseriti  è  controllato  dal¬ 
la  linea  220. 

Il  risultato  è  iscritto  grazie  ad  un  programma  funzio¬ 
nante  automaticamente  che  si  trova  alle  linee 
270-390  (l’automatismo  è  gestito  dalla  linea  230,  nel 
programma  principale). 

I  sottoprogrammi  posti  alle  linee  400-410,  420-430, 
440-450  e  460-470  effettuano  l'operazione  indicata, 
secondo  il  valore  di  Z  (linea  310). 

Ogni  risultato  è  memorizzato  in  A  (F-l)  (linea  330). 

La  routine  d'errore  in  2000  evita  l'arresto  del  pro¬ 
gramma  quando  VAL(R$)  è  utilizzata  per  caratteri 
che  non  siano  cifre. 

Si  dovrà  lanciare  il  programma  con  RUN. 

Poi,  si  battono  le  cifre  del  primo  numero  da  inserire 
che  appariranno  una  per  una,  man  mano  (non  si  po¬ 
tranno  inserire  più  di  8  simboli,  compreso  il  segno  — 
ed  il  punto  decimale).  La  battuta  di  un  segno  di  ope¬ 
razione  lascia  la  visualizzazione  intatta,  ma  l’introdu¬ 
zione  della  prossima  cifra  o  simbolo  provoca  la  can¬ 
cellazione  immediata  e  la  visualizzazione  del  nuovo 
simbolo.  È  da  notare  che  le  cifre  si  introducono  da 
sinistra  a  destra,  senso  usuale  di  scrittura. 
L’apparecchio  accetta,  come  segni  operatori  i  simbo¬ 
li  +  ,  — ,  *,  /;  il  segno  =  provocherà  l’apparizione  del 
risultato.  Le  operazioni  sono  concatenate  automati¬ 
camente,  il  risultato  precedente  è  preso  in  considera¬ 
zione  come  operatore  del  calcolo  seguente. 

Per  fare  un’altra  operazione,  bisognerà  battere 
BREAK  poi  RUN. 
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ESTENSIONI  POSSIBILI:  Si  dovrà,  innanzitutto,  migliorare  la  visualiz¬ 
zazione  del  segno  —  (raffigurato  qui  da  un  tratto), 
poi  si  potrà  migliorare  il  disegno  delle  cifre  (utiliz¬ 
zando  per  esempio,  il  generatore  dell’ATARI)  si  può 
anche  pensare  ad  un’estensione  a  più  di  8  cifre,  auto¬ 
rizzare  delle  operazioni  più  complesse  (COS,  SIN,  ...), 
aggiungere  delle  memorie,  ecc). 


10  REM  CALCOLATRICE 

12  SETC0L0R  1,2, 10‘8ETCOLOR  2,0,0 

15  OIM  Ai( 1 > ,B$<50> , C$( 12>,R$(20) ,A< 10) 

17  FQR  1=1  T0  10' A<I)=0‘NEXT  I 

20  C*»"####  **  *M,REM  sostituire  *  con  un  bianco  in  colore  inverso 

30  6$=H 144413333313121 131314413312131 12141 1333314141 14131 “ 

32  POKE  752,1 
35  OPEN  #1,4,8,  HIO  “ 

40  F=1 :L=0PRINT  ">“ 

50  N=0  *  T=0 ; K=0  =  R$= “ “ 

60  GET  #1 , CLA : A$=CHR$<CLA> 

70  IF  K=1  THEN  N=0‘R*="0M  ‘K«=0 
80  IF  A$=u=“  THEN  260 

30  X=<  i#A$="+"  >+<2*A*="-"  >+<3fcA#=“¥"  >+<4*A$*",'“> 

100  R$<LEN<R#>+1>*B# 

110  IF  XO0  THEN  260 

120  IF  R*=“-"  THEN  A*=R*>G0T0  200 

130  IF  fì#<".  "  OR  A$>"9“  OR  AS="/M  THEN  60 

140  IF  N=0  THEN  PRINT  ")“ 

150  IF  A*=,,.,‘  OR  A#*"-"  THEN  200 
160  FOR  1=1  T0  5 

170  S=3*VAL<B*a+5*VAL<A*>, I+5*VAL<A*>>>~2 
180  POSITION  N, 1+3 : PRINT  C$<S,S+2) 

190  NEXT  I 

200  IF  A$="-"  THEN  PRINT  ‘POSITION  1,7-PRINT  CHR*< 160>>CHR#<160> 
210  IF  A*="."  THEN  POSITION  N+l, SPRINT  CHR*<160> 

220  N=N+4*<N<28> 

230  IF  TO0  THEN  T=T+1-IF  T<=LEN<R$>  THEN  380 
240  IF  K=1  AND  LO  1  THEN  50 
258  T=0 : GOTO  60 

260  IF  R*="-M  AND  ACF>=0  THEN  120 
270  N=0-K=1 

280  GOSUB  2000 '■  IF  OR  AND  VA=0  THEN  A<F>*1»G0T0  380 

230  GOSUB  2000:fì<F>=VA 

300  IF  XO0  THEN  2=X 

310  ON  Z  GOSUB  400,420,440,460 

320  IF  A$C  "="  THEN  F=F+1 


325  IF  Ht="="  THEN  F=2 

336  GOSUB  2000>fl<F-l>=Vfì 

340  GOSUB  2000 ; IF  VA=0  THEN  A<F-1)=A<F> 

350  GOSUB  2088 1 R$=STR$<VR> 

370  T=1 

380  A*=R*<T,T> 

390  GOTO  140 

4O0  R*-STR*<B<F-l>+fi<F» ‘fl<F>«VBL<R*> *L«1 
410  RETURN 

420  IF  F <> 1  THEN  R*=STR*<B<F-l>-fi<F»  <fi<F>=VBL<R$> >L=1 
430  RETURN 

440  IF  F <> 1  THEN  R*=STR*<A<F-1 >*A<F> > - A(F)=VAL<R$> ‘L=l 
450  RETURN 

460  IF  FOl  THEN  R«»STR#<A(F-1>/’A<F>>  ?A(F>»VAL<R#>  -L*l 


470  RETURN 
2000  TRhP  2100 
2010  Vfl=VBL<R$> 
2020  RETURN 


2100  VA=0 
2110  TRAP  50800 
2120  RETURN 
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Smokey 


RIFERIMENTI:  Programmazione:  di  media  difficoltà. 

Categoria  del  gioco:  solitario. 

Difficoltà  del  gioco:  media. 

IL  GIOCO:  Una  colonna  di  fumo  grigio  appare  sullo  schermo.  Il 

giocatore,  rappresentato  da  un  punto,  diventa  visibi¬ 
le  sulla  destra.  In  un  primo  tempo  deve  posizionarsi 
sulla  colonna  di  fumo,  poi,  partendo  da  lì,  ingoierà 
automaticamente  il  fumo,  a  patto  che  riesca  a  mante¬ 
nersi  sulla  traccia. 

IL  PROGRAMMA:  La  linea  90  fa  apparire  il  fumo  nel  basso  dello  scher¬ 
mo;  la  linea  100  permette  di  cambiare  (verso  destra  o 
verso  sinistra)  la  direzione  della  colonna,  e  la  li¬ 
nea  120  fa  salire  la  colonna. 

Il  giocatore  appare  grazie  alla  linea  140,  ed  il  suo 
spostamento  è  effettuato  dalle  linee  180  e  190. 

Le  linee  250  e  260  si  incaricano  della  visualizzazione 
del  risultato. 


PER  GIOCARE:  Si  deve  lanciare  l'esecuzione  del  programma  con 

RUN. 

Il  fumo  comincia  ad  alzarsi,  mentre  il  giocatore  ap¬ 
parso  nella  forma  di  un  cerchio  colorato  in  un  angolo 
dello  schermo  si  dovrà  spostare  con  l’aiuto  delle  tre 
frecce.  Appena  arriva  sul  fumo,  comincerà  automati¬ 
camente  ad  ingoiarlo,  e  dovrà  cercare  di  seguire  la 
colonna  senza  deviare  (grazie  alle  frecce).  Vince  se 
arriva  nella  parte  inferiore  dello  schermo  prima  che 
la  colonna  arrivi  in  alto. 

Il  messaggio  finale  indica  allora  BRAVO  o  PERSO, 
così  come  il  punteggio  ottenuto. 

ESTENSIONI  POSSIBILI:  Si  potrà,  conservando  l’idea  di  partenza,  im¬ 
porre  delle  altre  regole:  per  esempio  ingoiare  tutto  il 
fumo,  che  potrà  anche  ripartire  da  un  altro  posto  se 
si  devia  la  colonna  iniziale. 

Si  potrà  anche  migliorare  i  controlli  di  fine  partita  e 
la  qualità  della  grafica. 
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10  REM  SMOKE Y 
20  GRAPHICS  0  ••  POKE  752/1 

30  SETCOLÙR  1.3/10  =  SETCOLOR  2/ 1,2 “SETCOLOR  2/1/2 
60  S=0  =  X=23  =  Y=INT  <RND(  1  :>t2Z) 

70  U=0= V=15 

71  U=1 

80  PRINT  "}" 

30  POSI TI OH  Y/X-PRINT  CHR*<6> 

100  Y= Y+  < RHD <1X0.5  AND  Y<23>-<RND<1><0.5  AND  Y>0> 

110  T=1 
120  X=X-T 

130  IF  X=0  THEM  250 

140  POSITION  V/U= PRINT  CHR$<20> 

145  POKE  764/255 

150  IF  TO0  THEN  FOR  1=1  TO  300  =  CLA»PEEK ( 764 >  =  I F  CLA0255  THEN  170 

160  IF  TO0  THEN  NEXT  I 

170  POKE  764 / 225  =  POSI TICiN  V/U  =  PRINT  '*  " 

180  U=U+<CLA=15)*<T=1 )*<U<23> 

190  U=U+<T=0> 

200  V=VKCLA=7>*<V<24>-<CLR=6>*<V>0> 

210  LOCATE  V/U/C-POSITION  V/U=PRINT  CHR$(C>; 

220  IF  CO0  THEN  90 

230  T=0=S=S+1 

240  IF  U<22  THEN  140 

250  IF  T=0  THEN  PRINT  “BRAVO" ' FOR  1=1  TO  3 1  READ  VA  =  SOUNO  0/VA, 10,4  =  FOR  T=1  TO  10 
=  NEXT  T 1 NEXT  I=GOTO  270 

260  PRINT  “PERSO !..."= FOR  1=1  TO  3‘SOUND  0,63, 10,4'FOR  T=1  TO  5'SOUND  0/0/0/0=NE 
XT  T  =  NEXT  I 

270  PRINT  "Puntenio  =“;S 
1000  DATA  63,47,40 
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Evasione 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  facile. 

Categoria  del  gioco:  solitario. 

Difficoltà  del  gioco:  bassa. 

Il  vostro  solo  problema:  riuscire  ad  attraversare  lo 
schermo,  senza  che  TATARI  vi  abbia  prima  colpito 
con  uno  dei  suoi  numerosi  proiettili  esplosivi  che  vi 
sparerà  addosso. 

Potete  spostarvi  in  4  direzioni  con  l’aiuto  di  4  frecce 
e  dovete  riuscire  ad  uscire  dal  terreno  dal  lafo  de¬ 
stro,  senza,  naturalmente,  essere  mai  stati  colpiti. 

La  linea  50  definisce  la  posizione  di  partenza  del  gio¬ 
catore. 

La  linea  60  sceglie  la  coordinata  orizzontale  della  ca¬ 
sella  dove  TATARI  sparerà  (legata  alla  vostra  posizio¬ 
ne).  L’utilizzo  di  TRAP  evita  Terrore  di  uno  sparo 
fuori  dal  territorio  autorizzato  provocando  la  ricerca 
di  un  nuovo  sparo  e  la  linea  50  sceglie  la  coordinata 
verticale  (arbitraria)  di  questa  casella. 

Lo  spostamento  del  giocatore  è  controllato  dalle  li¬ 
nee  140  e  150.  La  sua  traiettoria  è  tracciata  dalla  li¬ 
nea  120  e  la  sua  posizione  attuale  (sullo  schermo  una 
freccia)  è  stampata  dalla  linea  160. 

La  linea  170  controlla  se  è  stato  toccato  o  no. 

La  linea  180  effettua  il  controllo  di  fine  partita. 

Si  comincia  l’esecuzione  del  programma  con  RUN. 
Un  primo  sparo  ha  luogo,  dopo  che  il  giocatore  appa¬ 
re,  rappresentato  da  una  freccia. 

I  4  tasti  di  direzione  servono  a  spostare  il  giocatore. 
Se  è  colpito,  si  ottiene,  sullo  schermo,  il  messaggio 
PERSO  e  la  partita  si  ferma. 

Se  riesce  ad  uscire  alla  destra  dello  schermo  senza 
essere  colpito,  si  ottiene  il  messaggio  BRAVO,  e  la 
partita  è  ugualmente  terminata. 

Si  può  terminare  in  ogni  momento  battendo  BREAK. 


ESTENSIONI  POSSIBILI:  Il  colore  ed  una  grafica  più  curata  migliore¬ 
ranno  considerevolmente  l’attrattiva  del  gioco.  Si  po¬ 
trà  anche  rendere  il  lancio  delle  bombe  più  casuale, 
introdurre  degli  ostacoli  da  aggirare,  aggiungere  dei 
controlli,  fare  partecipare  vari  giocatori,  ecc. 
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10  REM  EVASIONE 

20  MUS I QUE=560 ‘ BEEP=600 ■ S I SODO» 1000 ‘DOMI SO=2000 
40  GRAPHICS  0 * SETCOLOR  1,6,6‘SETCOLOR  2,13,10 
50  X=0  '•  Y=  1 2 
SO  H»X+2-INT<RNDd)*6) 

70  K=  I  NT  <  23$RND  <  1  )  ) 

SO  IF  X<3  THEN  120 

100  POSITION  H, K= PRINT  CHR*<160> 

120  GOSUB  BEEP ‘ GOSUB  BEEP‘ POSITION  X,Y‘ PRINT 
130  F-PEEKC 764) ‘POPE  7S4,255 
140  X=X-(P=S>+<P=7> 

150  Y=Y- <P= 1 4  >  -K  P= 1 5  > 

160  POSITION  S,Y SPRINT  CHR*<123> 

170  IF  X>3  AND  < RBS < X-H >  +HBS < Y-K ) <= 1 )  THEN  PRINT  “PERSO" ‘RESTORE  SI 8000  =  GOSUB  HU 
SIQUE = END 

180  IF  X<38  THEN  60 

180  PRINT  "BRAVO !"> RESTORE  OOMI SO = GOSUB  MUSIQUE‘END 
50Ó  FOR  1=1  Tu  3 

510  READ  VA = SOUND  0,VA, 10,4‘FOR  T=1  TO  15'NEXT  T= SOUND  0,0, 0,0 ‘FOR  T=1  TO  5‘NEXT 
T 

520  NEXT  I 
530  RETURN 

600  SOUND  0,31 , 10, 10 * FOR  T=1  TO  5  > NEXT  T> SOUND  0,0, 0,0  =  RETURN 
1000  DhTh  64,81,126 
2000  DHTH  126,36,81 
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Corsa  automobilistica 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  difficile. 

Categoria  del  gioco:  gioco  di  riflessi  (un  giocatore). 
Difficoltà  del  gioco:  media. 

Guidate  su  una  strada  molto  sinuosa,  senza  nessun 
ostacolo,  e  dovete  cercare  di  seguirla  per  il  maggior 
tempo  possibile.  La  traccia  del  vostro  percorso  resta 
visualizzata  in  permanenza,  e  il  vostro  punteggio  ap¬ 
pare  subito  dopo  un  incidente. 

La  linea  20  simula  il  rumore  di  un  motore. 

La  stampa  della  strada  è  assicurata  dal  ciclo  I 
(70-100)  e  la  linea  90  traccia  i  bordi  della  strada. 

Il  ciclo  fittizio  N  permette  di  far  avanzare  la  strada 
verso  la  macchina. 

La  linea  110  fa  avanzare  la  strada,  e  la  linea  120 
stampa  la  macchina. 

La  linea  150  controlla  il  suo  movimento,  e  la  li¬ 
nea  160  determina  se  la  strada  fa  o  no  delle  curve. 
La  linea  170  guarda  se  abbiamo  toccato  il  bordo  della 
strada. 

La  linea  175  controlla  che  non  si  esca  dalla  strada. 
La  linea  180  incrementa  il  punteggio  e  la  linea  190 
cancella  la  vecchia  posizione  della  macchina. 

La  linea  220  visualizza  il  tempo  fino  all’incidente. 

Lanciare  l’esecuzione  del  programma  con  RUN,  il  di¬ 
segno  della  strada  comincia  ad  evolversi,  ed  appare  il 
vostro  veicolo,  rappresentato  da  una  macchina. 

Per  spostarlo  verso  destra  o  verso  sinistra,  dovrete 
utilizzare  i  tasti  -+  e  *-  (frecce  di  spostamento  del 
cursore).  Dovrete  evitare  per  il  maggior  tempo  possi¬ 
bile  di  toccare  il  bordo  nero,  il  che  provocherà  l’arre¬ 
sto  del  programma  e  la  visualizzazione  del  messaggio 
INCIDENTE,  seguito  dall’indicazione  del  punteggio 
realizzato. 

Si  potrà  fermare  lo  svolgimento  della  partita  in  ogni 
istante  battendo  BREAK. 


ESTENSIONI  POSSIBILI:  Si  può  immaginare  di  giocare  in  molti,  ognuno 
al  suo  turno,  registrando  il  miglior  punteggio. 

Si  può  anche  pensare  di  allargare  la  pista,  e  di  fare 
correre  varie  macchine.  Potremo  anche  ispirarci  ai 
giochi  dei  bar  che  sono  particolarmente  numerosi  su 
questo  tema. 
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IO  REM  CORSA  AUTOMOBILISTICA 
20  SOUND  2-123,8,2 
50  T=0: GRAPHICS  0 ' POKE  752,1 
60  X=23 • Y=1 1 : A=5 : B=10 : S=0 
70  FOR  1=8  TO  6 

80  POSITION  Y+I-X  'PRINT  CHRÌ<160); 

30  IP  I <2  OR  I>4  THEN  POSITION  Y+I, X' PRINT  CHR*d?4>; 

100  NEXT  I 
110  PRINT 

120  POSITION  6, A 'PRINT  CHR$<16>; ‘POSITION  C,A-1 'PRINT  CHR»<32+128«<N»18»> 

13@  FOR  1=1  TO  10'CLA=PEEK<?64) =T=T+0. 1 ' IF  CLA=255  THEN  NEXT  I 

140  C=B ' POKE  764,255 

150  B=B-< CLA=6 ) + <  CLA=7 > 

lbo  Y=Y+<2*RND< 1 >*<Y<25> >-<2*RND< 1 >#<Y>3> ) 

165  IF  N\13  THEN  N=N+1'GGT0  70 

170  LOCATE  6 , A , EC ; POS I T I ON  B, A  : PRINT  CHRSCEC); ' IF  EC=32  THEN  210 
175  LOCATE  B,A+1,EC' POSITION  B-A+l 'PRINT  CHRSCEO;  '  IF  EC=32  THEN  210 
180  S=S+1 

130  REM  POSITION  C-A'PRINT  CHR*<160); 

200  GOTO  70 

210  PRINT  "INCIDENTE  = Puntela  io  '";S 

220  PRINT  -PRINT  "TEMPO  -";INT<T)'FOR  TE=1  TO  255 ' SOUND  0, TE, 10, 4 'NEXT  TE 'END 
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Poker 


RIFERIMENTI:  Programmazione:  difficile. 

Categoria  del  gioco:  gioco  contro  TATARI. 

Difficoltà  del  gioco:  bassa. 

IL  GIOCO:  È  una  simulazione  di  una  partita  di  poker  tradiziona¬ 

le,  effettuata  con  un  mazzo  di  32  carte,  nella  quale  il 
giocatore  avrà,  come  avversario,  TATARI.  Il  giocato¬ 
re  riceverà  5  carte,  individuate  con  dei  numeri  da  1  a 
5,  e  potrà  decidere  di  cambiarne  alcune  annunciando 
quelle  che  scarta.  Le  sue  nuove  carte  saranno  allora 
visualizzate,  ed  è  in  seguito  il  turno  di  gioco  dell’A- 
TARI. 

IL  PROGRAMMA:  Le  linee  50  e  60,  definiscono  le  carte.  Una  variabile  N 
è  dimensionata  a  16,  alla  linea  40,  per  ricevere  10 
carte  giocatore  e  5  carte  ATARI. 

La  presa  sarà  effettuata  da  un  ciclo  I  (80-140)  ed  il 
controllo  da  un  ciclo  J  (110-130). 

La  visualizzazione  delle  carte  è  realizzata  dal  sotto- 
progamma  500-610. 

Un  altro  ciclo  I  (190-210)  realizza  la  seconda  presa  del 
giocatore,  la  linea  240  permette  la  seconda  visualiz¬ 
zazione,  e  il  ciclo  I  (500-570)  in  cui  si  entra  diretta- 
mente  dopo,  realizzerà  la  visualizzazione  del  gioco 
dell’ ATARI. 

La  linea  590  permette  di  uscire  direttamente  dal  sot¬ 
toprogramma  580  senza  passare  da  RETURN. 

PER  GIOCARE:  L’ordine  RUN  lancia  l'esecuzione  del  programma,  e 

appaiono  le  5  prime  carte  del  giocatore. 

Alla  domanda  CARTE  RIFIUTATE?,  il  giocatore  può 
rispondere  0  seguito  da  RETURN  se  vuole  fermare  la 
partita.  Per  giocare,  risponderà  semplicemente  RE¬ 
TURN  se  si  stima  servito,  oppure  inserirà  i  numeri 
delle  carte  che  rifiuta  seguiti  da  RETURN. 

Per  esempio,  se  batte  235  e  RETURN,  il  suo  nuovo 
gioco  conserverà  le  carte  1  e  4.  Le  sue  carte  saranno 
allora  visualizzate  così  come  quelle  dell’ATARI,  que¬ 
st’ultimo  non  avendo,  in  questo  programma,  la  possi¬ 
bilità  di  cambiare  delle  carte. 

Basterà  in  seguito  battere  un  tasto  qualunque  per  co¬ 
minciare  un’altra  mano. 

ESTENSIONI  POSSIBILI:  Saranno  naturalmente  numerose:  da  una  vi¬ 
sualizzazione  grafica  a  colori  delle  carte  fino  al  mi¬ 
glioramento  del  gioco  dell’ATARI,  l’introduzione  del¬ 
le  regole  sulle  scommesse  ed  anche,  perché  no,  la 
possibilità  di  bluff. 
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10  REM  POKER 
20  GRAPHICS  0 

30  SETCOLOR  1,5,6‘SETCOLOR  2,12,2 
46  DIM  H<15>,R$<6>,  V$<24),C$<8'.> 

50  V*="?  8  3  10FADOREAS" 

60  Cf="FIQUCUPI " 

70  PRINT  “>" 

80  FOR  1*1  TO  15 

30  1K I  >  =  INT < RND <  1  ) 432+ 1  > 

100  IF  1=1  THEN  140 

110  FOR  J=1  TO  1-1 

120  IF  N< I >=TKJ)  THEH  30 

130  NEXT  J 

140  NEXT  I 

150  K=0 ! P=0 

160  POSITIOH  0, 12 : PRINT  "CARTE  RIFIUTATE ! “ 

178  GOSUB  500 

180  IF  R4="M  THEH  220 

190  FOR  1=1  TO  LEN<R$> 

200  H<VAL<R$<I,I)))=N<I+5> 

210  NEXT  I 

220  PRINT 

230  P=1 

240  G0SU8  580 

250  K=K+10 

500  FOR  1=1  TO  5 

510  J=1+INK<N<I+K>-1>78> 

520  F=N< I+K>-84< INT<  <N< I+IO-l VS) > 

530  R$=V*<24F-1,24F> 

540  PGSITION  741-2, K-PRINT  I 

550  POSITIOH  741-4, K+2‘ PRINT  R4; " < “ jC*<24J-l , 24J> 

560  POSITION  741-4, K+3 ; PRINT  “ - “ 

570  NEXT  I 

580  IF  P=1  THEN  P=8' RETURN 

530  IF  K=10  THEN  PRINT  ‘PRINT  "Battere  <RETURN>  per  continuare"; ‘ INPUT  R* ■ POP  ‘G 
OTO  78 

600  POSITION  18, 12‘ INPUT  R* 

610  IF  R4=,,0"  THEN  END 
620  RETURN 
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Scacchi 


RIFERIMENTI:  Programmazione:  difficile. 

Categoria  del  gioco:  gioco  di  riflessione,  per  due  gio¬ 
catori. 

Difficoltà  del  gioco:  elevata. 

IL  GIOCO:  Il  programma  propone  solamente  ai  due  giocatori  di 

fare  una  partita  servendosi  dello  schermo  come  scac¬ 
chiera.  Non  c'è  controllo  della  validità  delle  mosse, 
ma  solamente  la  gestione  della  posizione  degli  scac¬ 
chi  sulla  scacchiera.  Le  pedine  e  gli  scacchi  sono  di¬ 
segnati  con  l’aiuto  delle  istruzioni  di  lettere  e  cifre.  Il 
colore  permette  di  distinguere  ogni  giocatore. 

IL  PROGRAMMA:  Le  linee  100-200  disegnano  la  scacchiera.  Le  linee  210 
e  220  definiscono  le  condizioni  iniziali,  con  l'aiuto  di 
un  array:  R(I,J),  per  i  codici  degli  scacchi,  e  C  (I,  J) 
per  il  colore. 

I  cicli  chiusi  I  (240-290)  e  J  (250-280)  disegnano  gli 
scacchi. 

La  linea  320  permette  l'inserimento  della  linea  e  del¬ 
la  colonna  di  partenza,  con  controllo  alla  linea  350. 
La  linea  370  permette  d’inserire  colonna  e  linea  d’ar¬ 
rivo. 

La  linea  400  annota  la  nuova  posizione. 

La  linea  410  assicura  il  cambio  del  giocatore. 

PER  GIOCARE:  Si  lancia  l’esecuzione  con  RUN. 

Viene  disegnata  la  scacchiera  poi  i  pezzi,  ed  infine  la 
scritta  giocatore  1  seguito  da  Partenza  (C/L).  Si  inse¬ 
riscono  la  colonna  e  la  linea  di  partenza  nella  manie¬ 
ra  E7  per  esempio,  si  ottiene  allora  la  scritta  Arrivo 
(C/L)  e  si  risponde  nello  stesso  modo.  Lo  spostamento 
viene  allora  effettuato,  e  sarà  il  turno  dell’altro  gio¬ 
catore. 

Per  finire,  basta  battere  BREAK. 

ESTENSIONI  POSSIBILI:  Si  potrà  cercare  di  realizzare  una  grafica  più 
accurata,  introdurre  i  controlli  di  movimento  dei 
pezzi.  E,  perché  no,  scrivere  un  programma  che  per¬ 
metta  all’ATARI  di  comportarsi  da  buon  partner. 
Buon  lavoro! 
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10  REM  SCACCHI 
20  DIM  R<8,8>,C<8,8> 

30  DIM  A$<3>,B*<3>,C*<3>,D*<2>,V*<7>,PI*C1> 

35  V*=“CRTGPF  " 

40  «*="" ‘REM  battere  3  volte  <C0NTR0L>U 
60  &'*=“  “‘REM  battere  3  bianchi  in  inverse 
78  C$=" " ‘REM  battere  in  inverse  3  volte  <C'ONTROL>U 
90  GRAPH ICS  0 ‘ SETCOLOR  1.3, 2‘ SETC0LOR  2,13.6 
95  POKE  752, 1 

100  PRINT  "  A  B  C  D  E  F  G  H“ 

110  FOR  1=1  TO  8 
120  FOR  J=1  TO  8 

130  IF  < I +J > ,'2=  I NT < (I +  J >/2 >  THEN  150 

140  POSITIOH  3*J, 2*1-1 ‘PRINT  A*  PRINT  I‘POSITIOH  3*J, 2*1 ‘PRINT  B*‘ POSITION  3*J,2 
*1+1 ‘PRINT  C* 

150  IF  1=2  OR  1=7  THEN  R<I,J>=4 
160  IF  102  HND  107  THEN  R<I,J>=6 
170  C<I,J>=1 

180  IF  1=7  OR  1=8  THEN  C<I,J>=6 
190  NEXT  J 
200  NEXT  I 

210  R< 1 , 1 )=2 ‘ R< 1 , 2>=5 ‘ R< 1 , 3)=0 ‘ R< 1 , 4>=3 ‘R< 1 ,5^=1 ‘ R< 1 , 6>=0 ‘ R< 1 , 7>=5 ‘ R< 1 , 8)=2 
220  FOR  1=1  TO  8‘R<8, I >=R< 1 , I) ‘NEXT  I 
230  H=1 

240  FOR  J=1  TO  8 
250  FOR  1=1  TO  8 
260  X=1+3*J‘V=2*I 

263  IF  R<  I ,  J  >  =6  THEN  POSITION  X,Y< PRINT  CHR* <  1 6@- 1 28* < <  I  +  J »  ••'2=  I NT <  <  I  +  J > .'2 > >  >  ‘ GOT 
0  280 

265  PI*«V*<R< I , J>+1 ,R< I , J)+l > 

267  P I $=CHR$  <  ASC  <  P I *  > + 1 28*C  < I , J  > ) 

270  POSITION  X,Y‘ PRINT  PI* 

280  NEXT  I 
290  NEXT  J  ' 

300  POSITION  28, 6 ‘ PRINT  "  “‘POSlflON  14,20‘PRINT  "  “POSITION  14,22 

PRINT  “ 

310  POSITION  0, 18 ‘ PRINT  “GIOCATORE  " ; 2-H 

320  POSITION  0,20 ‘PRINT  "PARTENZA  <C^L) ‘ “j ‘ INPUT  D$ 

330  POSITION  28, 6 ‘PRINT  D* 

340  GOSUB  500 

350  IF  R<L,C>=6  OR  <C<L,C>=1  AND  H=l)  OR  (C(L,C)=b  AND  H=0>  THEN  300 
360  T=R(L,C>S=C(L,C)‘R<L,C)=6 

370  POSITION  0,22 ‘PRINT  “ARRIVO  <C/L> ‘ “i ‘ INPUT  D* 

380  POSITION  31, 6 ‘PRINT  ";D* 

390  GOSUB  500 

400  R<L.O=T‘Ca,C>=S 

410  H=A65<H-1 > 

420  GOTO  240 

5O0  L=VAUD*<2,2>>  ‘C=ASC<D*<1, 1)0-64 
510  RETURN 
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Pericolo  spaziale 


RIFERIMENTI: 


IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  difficile. 

Categoria  del  gioco:  gioco  di  riflessi,  per  un  giocato¬ 
re. 

Difficoltà  del  gioco:  media. 

Siete  ai  comandi  di  una  nave  spaziale,  che  è  appena 
penetrata  in  uno  sciame  di  meteoriti.  Dovete  cercare 
di  uscire  dallo  sciame  senza  urtare  nessuna  meteori¬ 
te.  Il  vostro  punteggio  sarà  visualizzato  alla  fine  del¬ 
la  partita,  quando  urterete  una  meteorite. 

La  posizione  di  ogni  meteorite  è  determinata  dalle  li¬ 
nee  60  e  80  e  sono  stampate  dalle  linee  70  e  90. 
L'avanzamento  delle  meteoriti  è  realizzato  dalla  linea 
100. 

Le  linee  100  e  110  verificano  se  avete  o  no  urtato  una 
meteorite. 

La  linea  130  disegna  la  vostra  astronave,  e  la  li¬ 
nea  160  permette  di  spostarla. 

Il  contatore  si  trova  alla  linea  170. 

La  linea  200  simula  un’esplosione. 

Il  gioco  è  lanciato  con  l’ordine  RUN. 

La  vostra  astronave  appare  nel  mezzo  dello  schermo, 
e  le  meteoriti  vi  vengono  incontro  partendo  dalla  par¬ 
te  inferiore  dello  schermo.  Per  spostarvi,  potete  uti¬ 
lizzare  i  tasti  di  spostamento  orizzontale  (< - ►). 

Si  può  fermare  la  partita  in  ogni  istante  battendo 
BREAK.  Altrimenti,  il  gioco  si  ferma  quando  urtate 
una  meteorite,  e  appare  il  punteggio. 


ESTENSIONI  POSSIBILI:  Sarebbe  interessante  rendere  il  gioco  sempre 
più  difficile,  facendo  apparire  un  numero  sempre 
maggiore  di  meteoriti  man  mano  che  la  partita  si 
svolge. 

Si  può  anche  cercare  di  distruggere  le  meteoriti  pol¬ 
verizzandole  man  mano  che  arrivano. 


102  programmi  per  ATARI 


197 


1Q  REM  PERICOLO  SPAZIALE 
40  GRAPHICS  O'POKE  752,1 
45  SETCOLOR  1 , 2, 12 * SETCOLOR  2,5,2 
50  X= 1 8 • 2=0  : Y=X 
60  H=I  NT  CRUDO  >*39> 

70  IF  RHOaxe.Z  THEN  POSITION  H,23'PRINT  CHR*<160>; 

8w  K*INT<RND<I>*40> 

30  IF  RNDC1X0.6  THEN  POSITION  K, 23 ‘PRINT  CHR» <160)1 

100  PRINT  ' LOCATE  X, 12,EB*P0SITI0N  X,12*PRINT  CHR$<EB>; 'LOCfiTE  X+l, 12,EC=P0SITI0 
N  X+ 1 ,  12 ' PRINT  CHRfCEO; 

110  IF  EB=160  OR  EC=160  THEN  19© 

120  POSITION  Y-l, 11 'PRINT  "  "'POSITION  Y-1,10'PRINT  " 

130  POSITION  X, 12 'PRINT  -##“ 

148  CLfl=PEEK < 764 > ' POKE  764,255 
150  Y=X 

1 60  X=X+ < CLR-7 > * < X <38 > - < CLfi=6 >*<X>0> 

170  Z=Z+1 
180  GOTO  60 

190  POSITION  0, 23 'PRINT  'PRINT  “  Il  punteria  e'  di  U)Z ;  “  punti  ." 

280  FOR  1=1  TO  10* SOUND  0, 145, 4, I 'FOR  T=1  TO  15'NEXT  T'SETCOLOR  2,5, 14*< I/2=INT< 
1/2)  >  '  NEXT  I 
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Tic  Tac  Toe 


RIFERIMENTI:  Programmazione:  media. 

Categoria  del  gioco:  riflessione  (due  giocatori). 
Difficoltà  del  gioco:  bassa. 

IL  GIOCO:  Un  grande  classico  dei  giochi  scolastici,  proposto  qui 

in  una  versione  che  non  comporta  il  gioco  da  parte 
del  calcolatore;  ogni  giocatore  dovrà  posizionare  nel 
suo  turno  uno  0  o  una  X  in  una  casella  libera  della 
griglia  di  gioco,  e  il  primo  che  riesce  ad  allineare  tre 
simboli  identici  ha  vinto  (l’allineamento  può  essere 
orizzontale,  verticale,  o  diagonale). 

IL  PROGRAMMA:  La  linea  25  autorizza  la  visualizzazione  con  funzione 
GRAPHICS  2  sotto  forma  di  caratteri  grafici  e  di  mi¬ 
nuscole. 

La  griglia  di  gioco  è  disegnata  con  l'aiuto  di  un  ciclo 
I  (40-65)  che  legge  i  DATA. 

La  linea  100  si  occupa  di  visualizzare  il  simbolo  cor¬ 
rispondente  al  giocatore  che  ha  la  mano. 

La  linea  130  fa  lampeggiare  il  simbolo  contenuto  nel¬ 
la  casella;  le  linee  160  e  170  permettono  di  spostare  il 
simbolo  nella  griglia. 

La  linea  180  verifica  se  la  casella  dove  si  vuole  gioca¬ 
re  è  libera  e  se  si  desidera  giocare. 

La  linea  190  registra  il  colpo,  e  la  linea  200  realizza  il 
cambio  del  giocatore. 

PER  GIOCARE:  La  griglia  di  gioco  è  visualizzata  con  l’ordine  RUN. 

Un  simbolo  lampeggiante  appare  allora  in  alto  e  a  si¬ 
nistra  dello  schermo;  il  giocatore  può  spostarlo  nella 
griglia  con  l’aiuto  delle  quattro  frecce  (+-,  t,  1). 
Quando  arriva  sulla  casella  dove  si  desidera  giocare, 
basta  che  prema  il  tasto  0,  la  mossa  sarà  rifiutata  se 
la  casella  non  è  libera. 

Se  la  casella  è  libera,  il  simbolo  corrispondente  a 
questo  giocatore  sarà  iscritto,  e  si  cambia  di  giocato¬ 
re.  Quando  la  partita  è  finita,  conviene  battere 
BREAK  per  uscire  dal  programma.  Si  potrà  in  segui¬ 
to  fare  un'altra  partita  con  RUN. 

ESTENSIONI  POSSIBILI:  Si  potrebbe  realizzare  dopo  ogni  colpo  un  con¬ 
trollo  per  verificare  se  uno  dei  giocatori  ha  vinto.  Si 
può  anche  realizzare  un  gioco  per  il  calcolatore  ma 
bisognerebbe  evitare  che  sia  troppo  sistematico  (per 
esempio,  non  giocare  sempre  la  prima  mossa  sulla 
casella  centrale). 
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10  REM  TIC  TAC  TOE 

15  HflUT=10O0= I NTER= 1 0 1 0 : M I L I EU= 1020  =  BAS= 1 030 
20  GRAPHICS  2 
22  SETCOLOR  0,0,0 
25  POKE  756 ..  226 
30  DIM  C*<7> 

40  RESTORE  HflUT : READ  Cf -POSITIOH  6, 1 • PRINT  #6;C* 

45  FOR  1=1  TO  6 

50  RESTORE  INTERDIR  I=2*<IHT<I/'2>)  THEN  RESTORE  MILIEU 
55  READ  C*  POSITIOH  6, 1+1 > PRINT  #6;C* 

60  NEXT  I 

65  READ  Ct • POSITIOH  6,7 'PRINT  #6;C* 

100  PRINT  PRINT  “Giocatore  ";CHR*<79+K*3>> 

Ilo  1=1 -J=l 

120  LOCATE  5+2*1, 2* J,C 

130  FOR  N=1  TO  2 ! POSITIOH  5+2*1, 2* J< PRINT  #6 ) CHR* < C+ 1 28* < SGH C 1 28-C )>*<N=1>>; NEXT 
N 

150  CL  A=PE  EK  <  764  > 

155  POKE  764,255 

160  I=I-<CLA=6  AND  I>1>+<CLA*7  AND  I<3> 

170  J=J-CCLA=14  AND  J> 1 >+<CLA»15  AND  J<3> 

180  IF  CO 32  OR  CLAO50  THEN  120 

130  POSITIOH  5+2*1 ,2*J: PRINT  #6, CHR*<73+K*3+t28) 

200  K=ABS(K-1 ) 

205  VA=63 

210  IF  K=1  THEN  VA» 126 

215  FOR  T=1  TO  10-SOUND  0, VA, 10, 15 'NEXT  T'SOUND  0,0,0,0 
220  GOTO  100 

1800  DATA  <i rw rw re ■ .battere  simultaneamente  <CONTROL> 

1010  DATA  I  I  I  I 

102O  DATA  arsrsrd' .vedere  1000 

1030  DATA  z rxrxrc .vedere  1000 
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RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Dama 


Programmazione:  molto  difficile. 

Categoria  del  gioco:  due  giocatori. 

Difficoltà  del  gioco:  elevata. 

È  il  gioco  classico  della  dama  alla  francese,  ma  un 
po’  incompleto  visto  che  non  prevede  la  possibilità  di 
fare  delle  dame.  La  regola  del  gioco  resta  classica, 
ma  i  controlli  sono  stati  un  po’  semplificati.  I  movi¬ 
menti  delle  pedine  sono  inseriti  in  una  sola  manovra 
(posizione  di  partenza  e  direzione  dello  spostamento) 
e  le  prese  sono  realizzate  automaticamente,  se  sono 
possibili. 

Invece  il  cambio  del  giocatore  è  realizzato  ad  ogni 
mossa,  quindi  bisognerà  eventualmente  battere  0  per 
poter  rigiocare  se  c'era  stato  un  salto  o  se  il  colpo 
non  era  possibile. 

I  cicli  I  (80-170)  e  J  (90-160)  disegnano  la  scacchiera  e 
definiscono  le  posizioni  iniziali  delle  pedine  nere  e 
bianche.  Le  posizioni  sono  in  un  array  R  (X,Y)  e  il  co¬ 
lore  in  un  altro  array  C  (X,Y). 

La  stampa  delle  pedine  vera  e  propria  è  effettuata 
dai  cicli  chiusi  J  (190-250)  e  I  (200-240).  La  linea  270 
indica  il  giocatore  di  turno. 

La  mossa  è  inserita  alla  linea  270. 

La  linea  280  realizza  il  cambio  del  giocatore  (si  bat¬ 
te  0). 

La  linea  300  verifica  se  lo  spostamento  è  possibile. 
La  linea  330  tratta  il  caso  di  uno  spostamento  e  la  li¬ 
nea  340  quello  di  un  salto. 

La  linea  380  assicura  il  cambio  del  giocatore. 

Dopo  il  lancio  del  programma  con  RUN  la  scacchiera 
è  visualizzata  con  le  sue  pedine  e  un  cerchio  colorato 
appare  sotto  per  indicare  il  giocatore  che  deve  ini¬ 
ziare. 

Si  gioca  indicando  con  una  parola  di  3  lettere  (che 
può  cominciare  con  uno  0)  la  linea  e  la  colonna  della 
pedina  da  spostare,  poi  la  direzione  dello  spostamen¬ 
to  (codificata  da  1  a  4)  secondo  la  convenzione 

4  ^  .  ^  1 

3  . 2 

Per  esempio  9D1  significa  che  la  pedina  bianca  situa¬ 
ta  alla  linea  9,  colonna  D,  si  sposta  nella  direzione  1 
(non  dimenticare  di  battere  RETURN). 
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Allo  stesso  modo,  0G3  significherà  pedina  nera,  linea 
0,  colonna  G,  direzione  3. 

Il  cambiamento  del  giocatore  è  effettuato  automati¬ 
camente,  bisognerà  battere  0  per  rigiocare  se  il  colpo 
è  stato  rifiutato  o  se  c’è  stata  una  presa  (terminare 
sempre  con  RETURN). 

Il  programma  non  controlla  l’arrivo  a  dama  e  non 
proibisce  gli  spostamenti  indietro. 

ESTENSIONI  POSSIBILI:  Sarà  abbastanza  facile  cominciare  col  miglio¬ 
rare  i  controlli  (cambio  di  giocatore,  mossa  indietro 
che  non  corrisponderebbe  a  una  presa,  uscita  dalla 
scacchiera).  Si  potrà  pensare  alla  creazione  di  dame, 
al  loro  spostamento,  ed  eventualmente  scrivere  un 
programma  che  permetta  all’ATARI  di  giocare  con 
voi,  con  buone  possibilità  di  vincita. 


18  REM  DAMA 

28  DIM  R<10(  10)(C<18(  10) 

25  DIM  fi$<3>,B$<3>,C*<3>,D*<5> 

38  A*="uu.u"  «REM  battere  3  volte  <C0NTR0L>  u 
40  B*="  " : REM  battere  in  inverse  3  bianchi 

50  C$*“uuu"  'REM  battere  3  volte  <C0NTRClL>  u 
60  GRAPHICS  0‘POKE  752> 1 
78  PRINT  “ABCDEFGHI  JH 
80  FOR  1=1  T0  10 
90  FOR  J=i  T0  10 

100  IF  <I+JV2=INT<<I+J>/2>  THEN  120 

110  P0SITI0N  3*J, 2*1-1= PRINT  A4-PRINT  I-1'P0SITI0N  3*J, 2*1 'PRINT  BS'POSITION  3*J 
> 2*1+1 1 PRIMT  C* 

128  R<GJ>=0!C<I(J)=0 

130  IF  <I+.J)/2C>INT«I+J)/2)  THEN  160 

148  IF  J<5  THEH  R(I, J)=l <C<I/ J)=4 

150  IF  J>6  THEN  R(I,J)»1'C(I,J)=1 

160  HEXT  J 

170  NEXT  I 

180  H=1 

198  FOR  J=1  T0  10 
200  FOR  1=1  T0  10 

218  IF  (I+J)/-2<>INT<<I+J)/2)  THEN  240 
220  X=3*J+1 ‘Y=2*I 

230  P0SITI0N  X<Y‘ PRINT  CHR*<32*<R<I( J)=0)+123»R(I . J)*<C<G J>=4>) 

248  NEXT  I 
250  HEXT  J 

260  P08ITI0N  24 <22 ‘PRINT  “ 

278  POSI T ioti  0(22 ‘PRINT  “Giocatore  “(CHR*<123»<H=1>);“  ;  la  tua  Mossa.  '"('INPUT 
D* 

238  IF  D$="0"  THEN  H=A6S<H-1) ‘GOTO  260 
298  GOSUB  400 

308  IF  R<L(C>=0  OR  <C<L(C>=1  AND  H=l)  OR  <C<L(C>=4  AND  H=0>  THEN  260 
310  T=<D=1  OR  D=2>-<D=4  OR  D=3) 

320  S=(.'D=3  OR  D=2>-<D=1  OR  D=4> 

338  IF  R<L+S(C+T>=0  THEN  R<L> 0=0 ' R<L+S(C+T>«i ‘ C<L+S( C+T)=l +3*<H»1 > ■ GOTO  380 
340  IF  C<L+S(C+T>=1+3*<H=0>  AND  R<L+S(C+T)=1  AND  R<L+2*S(C+2*T>=0  THEN  360 
358  GOTO  268 

360  R<L(C>=0'R<L+S(C+T>=0'R<L+2*S(C+2*T>«1'C<L+2*S(C+2*T>»1*3*<H=1> 

378  GOTO  198 
388  H=ABS<H-1) 

390  GOTO  190 

488  L=VAL<D$<1( 1)>+1  C=ASC<D*<2(2)>-64‘D=VAt<D*<3(3)> 

410  RETURN 
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Anagrammi 


RIFERIMENTI:  Programmazione:  difficile. 

Categoria  del  gioco:  gioco  di  riflessi  (2  giocatori). 
Difficoltà  del  gioco:  secondo  il  livello. 

IL  GIOCO:  Delle  lettere  sono  scelte  a  caso  dall’ATARI,  il  numero 

essendo  in  funzione  del  livello  di  difficoltà  desiderato. 
Poi  le  lettere  della  parola  così  ottenuta  sono  mescola¬ 
te  e  visualizzate  nella  parte  inferiore  dello  schermo; 
una  nuova  parola  è  allora  creata,  in  modo  casuale,  con 
le  stesse  lettere,  ed  è  visualizzata  sotto  la  prima  e  così 
via;  i  due  giocatori  (destro  e  sinistro)  dispongono 
ognuno  di  un  tasto  (0  o  1)  e  devono  premerlo  appena 
vedono  visualizzarsi  in  basso  una  parola  già  apparsa; 
il  loro  punteggio  è  allora  calcolato  ed  apparirà  un 
messaggio  corrispondente  al  loro  risultato. 

IL  PROGRAMMA:  Il  livello  di  gioco  è  inserito  alla  linea  50.  Il  ciclo  I 
(80-100)  realizza  la  scelta  delle  lettere. 

Un  secondo  ciclo  I  (120-190)  effettua  la  mescola,  e  la 
linea  140  permette  di  rivelare  la  pressione  di  un  ta¬ 
sto. 

La  linea  200  visualizza  una  nuova  parola,  e  fa  salire 
di  una  linea  sullo  schermo  le  parole  già  ottenute. 

La  linea  240  cerca  quale  dei  due  giocatori  ha  premu¬ 
to  il  tasto. 

Il  ciclo  I  (250-320)  esplora  le  parole  presenti  sullo 
schermo  linea  per  linea,  mentre  il  ciclo  J  (270-300) 
prende  una  per  una  le  lettere  di  queste  parole. 

Si  ottiene  così  una  nuova  parola  che  è  paragonata  al¬ 
la  parola  iniziale  alla  linea  310  ed  il  risultato  BRAVO 
appare  se  è  esatto. 

Altrimenti,  la  partita  si  ferma  sul  messaggio  PERSO 
(linea  330). 

PER  GIOCARE:  Si  lancia  il  programma  con  RUN. 

Si  dovrà  anche  inserire  il  livello  di  difficoltà  (in  teo¬ 
ria  da  1  a  3)  e  fare  RETURN.  Le  parole  si  visualizza¬ 
no  partendo  dal  basso  dello  schermo,  e  salgono  man 
mano;  se  uno  dei  giocatori  crede  di  riconoscere  nella 
parola  apparsa  una  delle  parole  già  visualizzate,  do¬ 
vrà  immediatamente  premere  il  suo  tasto  (1  o  0),  ed  il 
suo  risultato  sarà  visualizzato  dopo  un  istante. 
Allora  la  partita  sarà  terminata. 

ESTENSIONI  POSSIBILI:  Si  potranno  utilizzare  non  solo  le  parole,  mo¬ 
dificare  i  tempi  di  visualizzazione,  fare  partecipare 
più  di  due  giocatori,  introdurre  il  suono  ed  il  colore, 
ecc. 
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10  REM  ANAGRAMMI 

30  DIM  A$<6),6*<6>,H*<16>,R*a>,S:»<6> 

40  GRAPHICS  0‘POKE  752,1 
50  PRINT  “Livello  <d*  1  «  3)  ‘INPUT  N 
60  IF  N<1  OR  N>3  THEH  40 
70  S*=“" 

30  FOR  1=1  TO  N+3 

90  S$<LEN<8$>+1 >=CHR*< INT<RND< 1 >*26+65) > 

100  NEXT  I 
110 

120  FOR  1=1  TO  LEN<S*> 

130  N=INT<RND<l>*LEN<Sls>+l> 

140  CLA=PEEK < 764 > ‘ POKE  764,255 
150  IF  CLFl=31  OR  CLFl=50  THEN  240 
160  IF  B$<N,H>="-“  THEN  130 
170  ft*CLEN<fl*)+l)=B$<N,N) 

180  6$<N,H>="-“ 

190  NEXT  I 

200  POSITIOH  0,23 ‘PRINT  fi* 

210  FOR  1=1  TO  20*LENCB*)‘NEXT  I 
220  S*=H* 

230  GOTO  110 

240  H$=“Gioe-atore  di  destra" 

245  IF  CLh=31  THEN  H*=“Giocatore  di  sinistra” 

250  FOR  1=0  TO  21 
260  B$=“  “ 

270  FOR  J=0  TO  LEN<S$>-1 

280  LOCATE  J, I , C ‘ POSITION  J, I = R$=CHR*<C) ‘PRINT  R*; 

290  B*<LEN<6*)+1>=R* 

300  NEXT  J 

310  IF  B$=S$  THEH  POSITION  LEN<S$>+4, I < PRINT  “BRAVO!  “ i H* ‘ RESTOSE  1000‘GQSUB  500 
‘  END 

320  NEXT  I 

330  POSITION  LEN<S*>+4, 23 -PRINT  “Perso!  mjH*j‘FGR  1=0  TO  5 ‘SOUND  0,63, 1d,4*U,'2= 
INT<I'2>) ‘END 

5tì0  FOR  1=1  TO  3 ‘ READ  VA ‘SOUND  0, VA, 10,4 ‘FOR  TE=1  TO  10 ‘NEXT  TE ‘SOUND  0,0,0.0‘PO 
R  TE-1  TO  3  NEXT  TE ‘NEXT  I ‘RETURN 
1000  DATA  63,47,40 
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Uova 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  difficile. 

Categoria  del  gioco:  solitario. 

Difficoltà  del  gioco:  media. 

Un  uccello  misterioso  si  sposta  battendo  le  ali  a  caso 
sullo  schermo.  Depone  delle  uova  (raffigurate  da  del¬ 
le  O)  che  voi  (un  quadrato  colorato)  dovrete  cercare 
di  recuperare.  Il  vostro  punteggio  (numero  di  uova 
recuperate)  sarà  visualizzato  in  permanenza;  la  parti¬ 
ta  si  svolge  in  un  tempo  determinato. 

L’uccello  è  disegnato  in  due  parti  (per  il  movimento) 
alle  linee  70  e  1 10;  il  suo  spostamento  casuale  è  gene¬ 
rato  dal  sottoprogramma  210-300  (in  particolare  le  li¬ 
nee  260-290). 

La  linea  130  permette  di  riciclare  il  programma  sulla 
linea  70. 

Lo  spostamento  del  giocatore  è  gestito  dalle  linee  150 
e  160,  e  il  test  che  permette  di  rilevare  la  presenza  di 
un  uovo  è  effettuato  dalla  linea  170. 

La  linea  190  permette  anche  la  visualizzazione  del 
punteggio. 

La  fine  del  gioco  è  effettuata  alla  linea  230. 

Si  lancerà  il  programma  con  RUN. 

L’uccello  comincia  allora  a  spostarsi  a  caso  sullo 
schermo  e  si  mette  a  deporre  le  sue  uova.  Quando  il 
simbolo  che  rappresenta  il  giocatore  (un  quadrato 
colorato)  appare  sullo  schermo,  costui  può  spostarsi 
utilizzando  i  4  tasti  direzionali.  Si  deve  allora  cercare 
di  recuperare  un  massimo  di  uova  prima  della  fine 
della  partita. 

Si  potrà  fermare  il  gioco  in  qualsiasi  momento  bat¬ 
tendo  BREAK. 


ESTENSIONI  POSSIBILI:  Sullo  stesso  principio,  potremo  facilmente  im¬ 
maginare  degli  altri  temi  di  gioco.  Potremo  natural¬ 
mente  migliorare  il  colore,  i  suoni,  la  grafica,  ed 
eventualmente,  definire  un  gioco  con  vari  giocatori, 
ognuno  che  cerchi  di  recuperare  un  massimo  di 
uova. 
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10  REM  UOVA 

50  GRAPHICS  0 : PQKE  752..  1  =P=200=R=18=S=10=T=0 
55  SETCOLOR  1,1, 10 =SETC0L0R  2, 2, 2 = SETCOLOR  4,2,2 
60  X=IHT <RND< 1 >*36) = Y-IHT <RND< 1 >*21 > 

70  POSITI  OH  X,  YF'RIHT  CHR$<7>;CHR$<14>iCHR$<6> 

80  CLA 1  =PEEK  '■  764  >  ••  F OR  1  =  1  TO  30 =CLA=PEEK<764> 

90  IF  CLA=CLA 1  THEN  HEXT  I 
35  GOSUB  140 
37  POKE  764,255 
100  GOSUB  210 

1 1 O  POS I T I OH  X , Y" PR I NT  CHR* <6>i CHR* <13>; CHR$ < 7 > 

120  GOSUB  210 
138  GOTO  70 

148  POS ITI OH  R, S ■ PRIHT  “  " 

150  R=R-<CLA=6  AND  R>0>+<CLA=7  AHD  R<36> 

160  S=S- < CLPl=  1 4  AND  S>0>+<CLfì=15  AHD  S<21> 

170  LOCATE  R, S, G = POSI TI OH  R,S= PRIHT  CHR*<G>; 

180  T=T+<G=96> 

130  POS  ITI  OH  15,22  PRIHT  "Punteria  io  <";T 
200  RETURN 
210  A=X : B=Y 
220  P=P-1 

230  IF  P=0  THEN  GOSUB  500 : PRIHT  “FINITO _ "=EHD 

240  POS ITI OH  R,S= PRIHT  CHR$<160> 

250  POS ITI OH  A, B : PRIHT  "  ";CHR$<96>; "  " 

260  X= ABS < X+ 1 NT < 1 -2* < RND < 1 > <0. 5> > > 

270  Y=ABS < Y+ 1 NT C 1-2* < RND < 1 > <0. 5>  > > 

280  IF  X> 36  THEN  X=1 
230  IF  Y> 2 1  THEN  Y=1 
360  RETURN 
50O  FOR  1=0  TO  3 

5 1 0  SOUND  1 , 1 26-30* < I  =  1 > -45*  <1 =2  > , 1 0 , 4 

520  FOR  TE=1  TO  25 : NEXT  TE : HEXT  1= SOUND  0,0, 0,0= RETURN 
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Quattro  a  quattro 


RIFERIMENTI:  Programmazione:  difficile. 

Categoria  del  gioco:  riflessione  (1  o  2  giocatori). 
Difficoltà  del  gioco:  elevata. 

IL  GIOCO:  Potrà  essere  fatto  da  uno  o  più  giocatori.  Nei  due  ca¬ 

si,  lo  scopo  è  di  riuscire  a  cambiare  le  pedine  X  con 
le  pedine  O;  se  si  gioca  da  soli,  questo  scambio  dovrà 
essere  realizzato  col  minor  numero  di  mosse  pos¬ 
sibile. 

Le  pedine  sono  spostate  alternativamente  rispettan¬ 
do  le  regole  di  spostamento  del  cavallo  negli  scacchi; 
non  ci  sono  prese  e  non  si  può  passare. 

IL  PROGRAMMA:  Il  ciclo  I  (60-100)  disegna  il  tavolo  di  gioco  e  le  posi¬ 
zioni  di  partenza. 

La  linea  120  permette  di  visualizzare  O  o  X,  secondo 
il  giocatore  che  sta  giocando. 

La  linea  150  permette  la  visualizzazione  del  cursore 
lampeggiante  che  indica  su  quale  casella  ci  si  trova. 
Le  linee  180-190  permettono  lo  spostamento  del  cur¬ 
sore. 

La  linea  200  guarda  se  è  stato  premuto  il  tasto  che 
regola  il  gioco. 

La  linea  210  ristampa  la  figura  che  è  sotto  il  cursore. 
La  linea  230  realizza  il  controllo  di  partenza  e  la  240 
quello  d’arrivo.  La  linea  250  verifica  la  validità  della 
mossa.  Il  cambio  del  giocatore  è  realizzato  dalla  li¬ 
nea  270  e  un  è  stampato  al  posto  di  partenza.  Il 
sottoprogramma  330-340  è  utilizzato  per  i  diversi 
controlli. 

PER  GIOCARE:  Si  lancia  il  programma  con  RUN.  Appare  il  campo  di 

gioco,  così  come  il  simbolo  che  permette  di  identifi¬ 
care  il  giocatore  di  turno.  Il  giocatore  può  scegliere 
la  pedina  che  desidera  spostare  manovrando  il  joy¬ 
stick.  Lo  spostamento  del  cursore  è  evidenziato  da 
un  simbolo  lampeggiante,  battendo  una  prima  volta 
sul  bottone.  La  casella  dalla  quale  si  parte  non  ha  più 
nessun  simbolo.  Manovrando  il  joystick  il  simbolo 
lampeggiante  riappare  e  lo  si  posizionerà  dove  si 
vuole. 

La  mossa  sarà  rifiutata  se  la  casella  di  partenza  non 
è  conforme  o  se  la  casella  di  arrivo  è  già  occupata. 
Altrimenti  la  mossa  è  realizzata  e  la  mano  passa  al¬ 
l'altro  giocatore,  che  sposta  il  cursore  lampeggiante 
fino  a  portarlo  su  una  delle  pedine  e  gioca  allo  stesso 
modo. 
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Il  giocatore  vincente  è  quello  che  riesce  a  portare  per 
primo  tutte  le  sue  pedine  nelle  caselle  inizialmente 
occupate  dalPawersario.  Si  può  interrompere  la  par¬ 
tita  in  ogni  momento  battendo  BREAK. 

ESTENSIONI  POSSIBILI:  Si  possono  migliorare  i  controlli,  prevedere 
un  test  di  fine,  utilizzare  un  campo  di  gioco  differen¬ 
te;  si  potrà  anche  immaginare  la  scrittura  di  un  pro¬ 
gramma  che  permetta  all’ATARI  di  partecipare  al 
gioco  con  delle  buone  possibilità  di  vincere. 


10  REM  QUATTRO  A  QUATTRO 

20  GRAPHICS  2+16‘SETCGLOR  4,2, 14=SETC0L0R  1 , 1 , 2 > SETC0L0R  2,2, 14 
40  H=1 

SO  POSITION  4,0 ‘PRINT  #6;ul  2  3  4  5" 

60  FOR  1=1  TO  5 

70  POSITION  0,2*1  PRINT  #6;STR*<I>  «POSITION  4,2*1 ’PRINT  #6; " . " 

80  IF  I <3  THEN  POSITION  4,2*1 ‘PRINT  #6; “0  0" 

90  IF  I>3  THEN  POSITION  10,2*1  PRINT  #6; “X  X" 

100  NEXT  I 
Ilo  X=1 ‘  Y=1 

12Ó  POSITION  16, 5 -PRINT  #6;CHR*<79+9*H>; 

125  X1=0 
130  GOSUB  330 

150  POSITION  2+2*X,2*Y‘ PRINT  #6;"  " 

160  A=X ; 6=Y 
170  R=STICK<0> 

180  Y=Y-<R=14  ANO  Y> 1 >+<R=13  AND  Y<5) 

190  X=X- <R=  11  AND  X>1)-KR=7  ANO  X<5) 

200  IF  HOT  3TRIG<0>  THEN  230 

210  POSITION  2+2*A,2*B‘ PRINT  #6;CHR*U) 

220  GOTO  130 

230  IF  XI =0  ANO  J<>73+9*H  THEN  210 

240  IF  XI =0  ANO  J=73+9*H  THEN  X1=X ‘ Y1=Y ‘ GOSUB  130 

242  IF  X1=0  THEN  210 

245  IF  JOASC<".  ">  ANO  X1O0  THEN  GOTO  130 

250  IF  <ABS(X-X1 )=1  ANO  ABS < Y- Y 1 ) =2 )  OR  <ABS<X-X1>=2  ANO  ABS(Y-Y1>®1>  THEN 
260  POSITION  2+2*X, 2*Y ‘ PRINT  #6; " . " : X=X1 > Y=Y1 ! GOTO  130 

270  POSITION  2+2*X,2*Y' PRINT  #6;CHR*<79+H*9> ! POSITION  2+2*Xl , 2*Y1  PRINT  #6; 
=  HOT  H-'FOR  T=1  TO  10 ‘NEXT  T‘G0T0  110 
330  LOCATE  2+2*X,2*Y,J 
340  RETURN 
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"Puzzle”  di  lettere 


RIFERIMENTI:  Programmazione:  difficile. 

Categoria  del  gioco:  riflessione. 

Difficoltà  del  gioco:  elevata. 

IL  GIOCO:  Chi  di  noi  non  ha,  un  giorno  o  l’altro,  avuto  tra  le  ma¬ 

ni  uno  di  quei  piccoli  puzzles  dove  si  cerca  di  sposta¬ 
re  da  una  casella  all’altra  dei  piccoli  quadrati  di  pla¬ 
stica  colorata,  fino  ad  ottenere  un  risultato  ben  pre¬ 
ciso?  Al  suo  tempo  il  14-15,  di  Sam  Lloyd,  ha  avuto  lo 
stesso  successo  del  celebre  Rubik's. 

Il  puzzle  che  è  proposto  qui  utilizza  35  lettere,  dispo¬ 
ste  a  caso  in  un  quadrato  di  6  *  6  caselle,  e  queste  let¬ 
tere  possono,  riposizionate  nel  loro  ordine  iniziale, 
permettervi  di  ricostituire  una  frase. 

Una  casella  lampeggiante  vi  permette  di  spostare  le 
lettere  ed  un  contatore  visualizza  in  permanenza  il 
numero  di  tentativi:  riuscirete  a  trovare  la  frase? 


IL  PROGRAMMA:  La  frase  da  ricostituire  (che  potrà  naturalmente  esse¬ 
re  modificata)  è  posizionata  in  una  variabile  R$  alla 
linea  60. 

La  mescola  delle  lettere  e  la  stampa  sono  fatte  dal  ci¬ 
clo  I  (70-160). 

Le  linee  190  realizza  la  visualizzazione  del  quadrato 
lampeggiante  che  è  spostato  dalle  linee  230  e  240  uti¬ 
lizzando  le  quattro  frecce. 

Le  linee  250  e  260  ristampano  la  lettera  scelta  nella 
posizione  del  quadrato  colorato. 

La  linea  280  contabilizza  il  numero  di  tentativi,  che  è 
stampato  grazie  alla  linea  180. 

PER  GIOCARE:  Si  lancia  il  programma  con  RUN. 

La  partita  è  più  difficile  se  non  si  conosce  la  frase  da 
ricostruire.  Si  possono  spostare  le  lettere  e  farle  pas¬ 
sare  nella  posizione  del  quadrato  colorato  con  l’aiuto 
dei  4  tasti  di  direzione  (<-,  t,  f). 

Il  numero  di  tentativi  è  visualizzato  in  permanenza,  a 
destra  del  puzzle. 

Si  può  fermare  il  gioco  in  ogni  momento  battendo 
BREAK. 

ESTENSIONI  POSSIBILI:  Lo  stesso  principio  può  essere  applicato  ad 
ogni  sorta  di  puzzles  (manipolazioni  di  numeri,  di  co¬ 
lori,  di  suoni  eventualmente).  Si  possono  anche  pre¬ 
vedere  varie  frasi,  con  una  scelta  effettuata  da  un  ge¬ 
neratore  casuale  ecc. 
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10  REM  PUZZLE  DI  LETTERE 
20  DIM  A$<35>  ,  R$<35> 

39  GRAPHICS  0-POKE  752,1 
■i5  SE  T COLOR  1  ,>  ,3 

40  FOR  1=1  TO  8 : POSITI ON  15+1, 6-PRINT  CHR*<160> -POSITION  16,5+1 «PRINT  CHR*<160>< 
POS ITI OH  1 5+ I , 13  - PRINT  CHR$<160> 

56  POSITIOH  23,5+1 : PRINT  CHR$< 160> - NEXT  I 
60  Hi="  "  -  R-l  =  "LAMhR I AHNAVAIHCANPAGNA INHONOPATT I NO" 

70  FOR  1=1  TO  35 
80  X= INT <RHD<1 >*35+1 > 

90  IF  R$Oi,  ;•!>  =  "-“  THEN  80 
1 00  H*  <  LEM  C  A*  >  + 1  > =RT  <  X ,  X  > 

110  RtOi,  X>="-" 

120  F=ASCCA*CI, I>> 

1 30  X=  I -6* I NT C  I  - 6 )<Y«INTO /6 ) 

140  POSITIOH  17+X,7+Y= PRINT  CHR*<F> 

168  NEXT  I 

1 70  X=0 ■ Y=8 - S=8 = C=32 

180  POSITIOH  0,22  PRINT  “Numero  di  prove  >“;S 
130  POSITIOH  17+X,7+Y -PRINT  CHR$<32+FL> 

20O  CLfl“P£EK < 764 > < IF  CLA=255  THEN  FL=A6SCFL-128> -GOTO  130 
220  I=X - J=Y 

230  X=X-<CLA=6  AND  X>0>+<CLR»7  AND  X<5) 

240  V=Y-CCLA=14  AND  Y>0)+<CLA»15  AND  Y<5> 

250  LOCATE  17+X,7+Y,C 

260  POSITIOH  17+1, 7+J -PRINT  CHR$CC> 

270  IF  I=X  AND  J=Y  THEN  SOUND  0,251, 10,4 -FOR  TE=1  TO  5-HEXT  TE -SOUND  0,0,0, 0-GOT 
0  230 

280  S-S+l -FOR  TE=1  TO  255  STEP  8 -SOUND  0, I , 10,4 -NEXT  TE -SOUND  0, 0,0,0 
238  POKE  764, 255 -GOTO  180 


210  102  programmi  per  ATARI 


Bersagli 


RIFERIMENTI:  Programmazione:  difficile. 

Categoria  del  gioco:  fortuna. 

Difficoltà  del  gioco:  bassa. 

IL  GIOCO:  Consiste  semplicemente  nel  colpire  dei  bersagli,  cer¬ 

cando  di  segnare  il  maggior  numero  di  punti;  il  nu¬ 
mero  di  bersagli  (da  1  a  6)  sarà  scelto  all’inizio  della 
partita  ed  il  punteggio  realizzato  sarà  visualizzato  in 
permanenza.  Se  si  tocca  il  bordo  di  un  bersaglio,  la 
partita  si  ferma.  Si  marcheranno  tanti  più  punti 
quanto  il  numero  colpito  sarà  grande. 

IL  PROGRAMMA:  Il  numero  di  bersagli  è  inserito  alla  linea  50.  Il  ciclo  I 
(80-100)  effettua  la  stampa  dei  bersagli. 

La  linea  120  visualizzerà  il  punteggio  in  permanenza. 
La  palla  è  visualizzata  dalla  linea  130. 

Il  ciclo  I  (150-200)  realizza  la  stampa  delle  cifre  con¬ 
tenute  nei  bersagli  e  permette  lo  spostamento  della 
palla  (linea  190). 

La  linea  220  guarda  se  si  è  sparato,  e  la  linea  230 
guarda  se  la  palla  è  ancora  sulla  linea  di  partenza. 
La  linea  240  fa  avanzare  la  palla  di  una  casella  verso 
destra,  e  la  linea  250  verifica  se  ha  oppure  no  rag¬ 
giunto  i  bersagli;  poi  le  linee  260  e  270  guardano  ciò 
che  hanno  colpito. 

La  linea  280  incrementa  il  punteggio. 

Le  linee  290  e  300  si  occupano  della  fine  della  partita. 
Le  note  della  musica  sono  scritte  nella  stringa  VA$ 
con  i  valori  dei  suoni  corrispondenti.  Il  sottopro¬ 
gramma  500  sceglie  alcune  note. 

PER  GIOCARE:  Lanciare  il  programma  con  RUN  e  battere  il  numero 

di  bersagli  desiderati  seguito  da  RETURN.  I  bersagli 
appaiono  e  la  partita  comincia.  La  vostra  pallina,  raf¬ 
figurata  da  una  O  è  visualizzata  in  basso  a  sinistra; 
potete  spostarla  con  le  frecce  alto  e  basso  (tasti  «-  e 
-»)  e  potete  sparare  quando  volete  battendo  0. 

Il  punteggio  sarà  modificato  in  funzione  del  vostro 
risultato,  e  una  nuova  pallina  appare.  È  possibile  fer¬ 
marsi  in  ogni  istante  battendo  BREAK,  altrimenti  il 
gioco  si  ferma  dopo  un  certo  numero  di  spari. 

ESTENSIONI  POSSIBILI:  Si  potrà  senza  difficoltà  aumentare  il  numero 
di  bersagli,  modificare  le  regole  di  apparizione  dei 
numeri  nei  bersagli  per  renderle  meno  casuali,  fare 
in  modo  che  la  pallina  stessa  sia  raffigurata  da  una 
cifra  che  dovrebbe  coincidere  all’arrivo  con  quella 
del  bersaglio. 
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lo  REM  BERSAGLI 

20  D I M  NU*  <  1 00  > ,  VA*  <  45  > , C*  <  45  > 

25  VA*=" DOREM I F ASOLA* I DMRM 1 26 1 0869603 1 08 1 072064063053  '*  ■ C*=VA* 

30  GRAPHICS  0  ‘POKE  752,1 
40  PRINT 

50  PRINT  "Nuwero  di  bersaali  :"i* INPUT  N 
55  IF  N<0  OR  N>6  THEN  40 
60  P=10: J*30>S»0=B=1 
76  PRINT  “}" 

80  FOR  1=1  TO  N 

30  POSITION  J, 3*1-1 ‘PRINT  CHR*<18>lCHR*<5> 'POSITION  J, 3*1 ‘PRINT  “  I " ‘POSITION  J, 
3*1+1 ‘PRINT  CHR*a8>;CHR*<3>; 

100  NEXT  I 

1 1 0  K=0 ‘ A-2+I NT  <  RND (1 ) *  < 3*N) > 

120  POSITION  0, 20 ‘PRINT  "Punte* «io  ■"iSì"  -  Palla  <"j8 
130  POSITION  K, A ‘PRINT  CHR4C20) 

146  D=A 

150  FOR  1=1  TO  N 
160  U=  I  NT  <  RND  <  1  >  *P  > 

170  POSITION  J, 3*1 ‘PRINT  CHR$<U+48> 

180  CLA=PEEK<  764  > 

130  A=A+<CLA=15  AND  A<3*N+i >-<CLA=14  AND  A>2> 

135  POKE  764,255 
200  NEXT  I 

210  POSITION  K,D‘ PRINT  "  11 
220  IF  CLA=50  THEN  B=6+1‘G0TG  240 
230  IF  K=0  THEN  130 
246  K=K+ 1 

256  IF  K < J  THEN  130 

260  LOCATE  K, A, C = POSITION  K, A ‘PRINT  CHR4<C) 

276  IF  C<48  OR  057  THEN  POSITION  0, 21 < PRINT  "Perso! _ “ >  ‘MU*=U SONI DOT ‘GOSUB  58 

0  ‘  END 

280  S=S+C-48 ‘ MIJT = " DODODOREM I REDOH I REREDO " ' GOSUB  500 
230  P=P~1 

380  IF  F-0  THEN  HU*= “ S I S I SOS I RESOSOLADMS I LASOL " ‘ GOSUB  588 ‘END 
310  GOTO  118 

580  VA* =C* 

505  FOR  IM=1  TO  LEN<MU*>-1  STEP  2 
518  FOR  JV=1  TO  3 

52@  IF  VA$<2*JV-1 , 2*JV> <>MU*< IH, IM+1 >  THEN  NEXT  J V 
538  HO=VAL< VA$< 13+3*<JY-1 > , 18+3* JV) ) 

540  SOUND  0, NO, 10, 4 ‘ FOR  TE=1  TO  18 > NEXT  TE 
55©  SOUND  0,0, 0,0 ‘FOR  TE=1  TO  5 'NEXT  TE 
566  NEXT  IM 
570  RETURN 
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Gocce 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  difficile. 

Categoria  del  gioco:  disegno. 

Difficoltà  del  gioco:  nessuna. 

È  un  vero  programma  di  disegno  animato  che  si  può 
considerare,  infatti,  come  un  interludio;  un  recipien¬ 
te  è  disegnato  sullo  schermo,  visto  di  taglio;  e  contie¬ 
ne  già  degli  ostacoli.  Una  goccia  d’acqua,  simbolizza¬ 
ta  da  un  cerchio  grigio,  appare  sopra  il  recipiente  e 
cade  riempiendolo  man  mano.  La  sua  traiettoria, 
quando  trova  un  ostacolo,  è  interamente  determinata 
dal  caso:  va  a  destra  o  a  sinistra,  fino  a  che  non  non 
ci  sia  più  alcuna  possibilità.  Allora,  un’altra  goccia 
cade,  e  così  via,  fino  al  traboccamento  finale. 

I  due  cicli  chiusi  I  (60-130)  e  J  (70-120)  disegnano  il 
recipiente  e  gli  ostacoli. 

La  linea  170  disegna  la  goccia  e  la  linea  210  rinvia  nel 
sottoprogramma  (370-390)  che  permette  di  determi¬ 
nare  se  incontra  o  meno  un  ostacolo. 

Se  non  l’incontra,  si  va  in  290  e  la  goccia  continua  a 
cadere,  altrimenti  la  goccia  va  a  destra  o  a  sinistra 
(linea  230)  secondo  il  valore  definito  per  K  alla  linea 
150. 

Si  guarda  di  nuovo  se  c'è  oppure  no  l'ostacolo,  o  se  la 
goccia  può  continuare  a  cadere  (linee  240,  250  o  260). 
Secondo  il  risultato  del  test,  si  utilizzerà  270,  290, 
310  o  340. 

II  RUN  fa  partire  il  disegno  del  recipiente  e  degli 
ostacoli,  la  goccia  appare,  si  mette  a  cadere  e  finisce 
per  trovarsi  un  posto.  Un’altra  goccia  appare  e  si  ri¬ 
comincia. 

Il  programma  si  ferma  da  solo  quando  il  recipiente 
trabocca;  possiamo  fermarlo  in  qualsiasi  momento 
battendo  BREAK. 


ESTENSIONI  POSSIBILI:  Possiamo,  naturalmente,  aggiungere  il  colore 
ed  i  suoni,  ed  anche  immaginare  un  gioco  nel  quale 
un  piccolo  personaggio  possa  evitare  le  gocce  o  l'an¬ 
negamento. 
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10  REM  GOCCE 

58  GRAPHICS  0 ! POKE  752, 1 'SETCGLOR  1,7/2 =S£TCOLOR  2,6, 10 
60  FOR  1=12  TO  20 
70  FOR  J=1  TO  16 

80  POSITION  0.1  PRINT  CHR$<160> ‘POSITION  17, 1  PRINT  CHR*<160i> 

30  POSITION  J, 20 "PRINT  CHR4K160) 

100  IF  1012  ANO  1020  THEN  POSITION  J,  I ‘PRINT  CHR*U60> 

110  IF  1020  ANO  RNDC1X0.7  THEN  POSITION  INT<RHD<mi5+l>,  l ‘PRINT  •  “ 

120  NEXT  J 
130  NEXT  I 

140  Y=INKRND< 1 >*7+6) > X=6 
1 50  K=2*<RND< 1 > <0. 5)-l 
160  1=0 

170  POSITION  Y,X! PRINT  CHR*<20> 

180  FOR  J=0  TO  100: NEXT  J 
130  POSITION  Y,X! PRINT  “  " 

200  U=X+ 1 1 V=Y 

210  GOSUB  370 

220  IF  J=0  THEN  290 

230  U=X = V=Y+K 

240  GOSUB  370 

250  IF  1=0  THEN  310 

260  IF  1=0  THEN  340 

270  POSITION  Y,X- PRINT  CHR*<20> 

288  GOTO  140 
290  X=X+ 1 
300  GOTO  ISO 
310  Y'-'T+I-:. 

320  1=1 

336  GOTO  170 

840 

350  1=1 
360  GOTO  230 

370 -.LOCATE  V,U,C‘PGSITIQN  V,U< PRINT  CHR$<C> ’SOUND  0,31, 10, 4 ; FOR  T£=l  TO  3‘NEXT  T 
E ‘SOUND  0,0, 0,0 

380  JXC032) ‘ IF  U=23  THEN  POSITION  18,15‘PRINT  "Finito . “ ‘GOSUB  500= END 

390  RETURN 

5O0  FOR  MU=.l  TO  3= READ  VA = SOUND  0, VA, 10, 4= FOR  TE=l  TO  10  NEXT  TE = SOUND  0,0,0, S  F 
OR  TEpI  TO  5= NEXT  TE = NEXT  MU= RETURN 
1000  DATA  63,47,40 
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Ostacoli 


RIFERIMENTI: 


IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  abbastanza  difficile. 

Categoria  del  gioco:  gioco  di  riflessi  (per  un  giocato¬ 
re). 

Difficoltà  del  gioco:  media. 

Dei  pedoni  si  spostano  sullo  schermo  incontro  ad 
una  piccola  macchina  che  dispone  della  possibilità  di 
spostarsi  verso  sinistra  o  destra  per  evitarli  il  più  a 
lungo  possibile. 

La  distanza  percorsa  sarà  visualizzata  in  permanenza 
ed  il  gioco  termina  quando  la  macchina  investe  un 
pedone  o  il  bordo  della  strada. 

La  linea  80  fa  avanzare  i  pedoni  verso  la  macchina 
del  giocatore  che  è  stampata  grazie  alla  linea  70. 

Le  linee  80,  90  e  100,  disegnano  la  strada  (le  linee  90  e 
100,  anche  se  identiche,  sono  tutte  e  due  indispensa¬ 
bili,  poiché  il  valore  di  RND  non  sarà,  in  teoria,  lo 
stesso  sulle  due  linee). 

La  linea  120  visualizza  il  punteggio. 

La  linea  140  permetterà  di  spostare  il  veicolo. 

Le  linee  150  e  160  permettono  di  controllare  se  c’è 
o  no  un  ostacolo  e  fermano  il  programma  se  è  neces¬ 
sario. 

Il  punteggio  è  incrementato  dalla  linea  170. 

Si  lancia  il  programma  battendo  RUN. 

La  strada  e  i  pedoni  appaiono  nella  parte  inferiore 
dello  schermo  e  salgono  verso  la  macchina.  La  mac¬ 
china  può  spostarsi  con  l’aiuto  delle  frecce  di  sposta¬ 
mento  orizzontale  (tasti  *-  e  -»). 

Lo  scontro  con  un  ostacolo  interrompe  lo  svolgimen¬ 
to  del  programma  e  provoca  la  visualizzazione  del 
punteggio. 

Si  può,  però,  uscire  dal  programma  in  ogni  momento 
utilizzando  il  tasto  BREAK. 


ESTENSIONI  POSSIBILI:  Sarà  abbastanza  facile  migliorare  il  disegno 
della  macchina,  della  strada,  e  degli  ostacoli.  Potre¬ 
mo  migliorare  il  suono  e  il  colore,  ammettere  un  cer¬ 
to  numero  di  incidenti,  registrare  il  miglior  punteg¬ 
gio  (per  vari  giocatori),  eventualmente  disegnare  va¬ 
rie  macchine,  ecc. 


102  programmi  per  ATARI  215 


10  REM  OSTACOLI 

50  GRAPHICS  0‘POKE  752, 1 ‘SETCOLOR  1,3. 10 'SETCOLOR  2,0,4 -SETCOLOR  4.0,4 
60  S=0 ‘ Y=5 

70  POSITIOH  Y.0  PRIHT  'Ti 

80  POSITIOH  0,23‘PRINT  CHRX160);  "  HiCHR*<160>; .REM  8  BLANCS 

'30  IF  RND< 1 > <0. 7  THEN  POSITIOH  INT<RND<1>*8+1>,23'PRINT  CHR$<123>, 

100  IF  RNDOX0.8  THEH  POSITION  INT<RND<  1  >*3+l > , 23  =  PRINT  CHR*023> 

110  POSITIOH  15, 5 ‘PRINT  “  “‘REM  15  BLANCS 

120  POSITIOH  15, 6 ‘PRINT  "Pantea* io  '";S 
130  CLA=PEEK  <  764  > 

140  Y=Y- < CLA=6  AHO  Y>0>+<CLA=7  ANO  Y<9> 

156  LOCATE  Y, 1 , C ‘POSITIOH  Y.l'PRIHT  CHR*<C) 

160  IF  C=160  OR  C=123  THEN  GOSUB  500 ‘END 
170  S=S+1 

180  POPE  764, 255 ‘GOTO  70 

580  POR  MU=1  TO  3 ‘READ  VA ‘SOUND  0, VA, 10,4‘FOR  TE=1  TO  10‘HEXT  TE ‘SOUND  0,0,0,0‘F 
OR  TE=1  TO  5‘NEXT  TE'NEXT  MU‘ RETURN 
1Ó00  DATA  63,53.47 
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Catture  nello  spazio 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Programmazione:  difficile. 

Categoria  del  gioco:  riflessi  (un  solo  giocatore). 
Difficoltà  del  gioco:  media. 

La  vostra  astronave  naviga  in  un  pericoloso  campo  di 
meteoriti  e  la  vostra  missione  è  di  impadronirvi  della 
maggiore  quantità  possibile  di  minerale  di  uranio,  un 
metallo  indispensabile  che  si  trova  solo  in  questo 
luogo  pericoloso.  Dovete  riuscire  a  manovrare  per 
raccogliere  l’uranio,  senza  farvi  urtare  da  una  meteo¬ 
rite. 

La  linea  70  permette  di  fare  apparire  le  meteoriti. 

La  linea  90  fa  apparire  il  minerale  di  uranio  e  assicu¬ 
ra  lo  spostamento  delle  meteoriti  sullo  schermo. 

Le  linee  110-130  controllano  lo  svolgimento  del  gioco 
(abbiamo  urtato  una  meteorite?  o  abbiamo  preso  un 
blocco  di  uranio?). 

Lo  scontro  con  una  meteorite  provoca  la  fine  della 
partita. 

La  vostra  astronave  è  stampata  dalle  linee  140  e  150 
ed  il  suo  spostamento  è  controllato  dalla  linea  170. 

Si  lancia  il  programma  con  RUN  e  le  meteoriti  co¬ 
minciano  a  salire  sullo  schermo,  così  come  i  blocchi 
di  uranio. 

I  tasti  di  spostamento  orizzontale  (♦-  e  -»)  saranno 
utilizzati  per  spostare  la  vostra  astronave  e  recupera¬ 
re  l’uranio,  ma  il  minimo  urto  con  una  meteorite  pro¬ 
vocherà  la  fine  della  partita  e  la  visualizzazione  della 
quantità  di  uranio  catturata.  Si  potrà  anche  fermare 
in  ogni  momento  battendo  BREAK. 


ESTENSIONI  POSSIBILI:  Si  può  rendere  il  gioco  sempre  più  difficile  au¬ 
mentando  il  numero  di  meteoriti,  o  ancora,  dando  un 
limite  di  tempo  alla  partita. 

Si  può  anche  prevedere  una  visualizzazione  perma¬ 
nente  del  punteggio,  introdurre  una  seconda  astrona¬ 
ve  manovrata  da  una  potenza  straniera  che  cercherà 
anch’essa  di  impadronirsi  dell’uranio... 
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10  REM  CATTURE  HELLO  SPAZIO 
20  REM 

38  GRAPHICS  Q  ‘POKE  752, I 

40  SETCOLOR  I , 2, 10 ■ SETCOLOR  2, 7, 2 • SETCOLOR  4,7,2 
50  X=15  '•  2=0 
6©  S=IMT<RND< 1 >:*33> 

70  POSITIOH  S,  23  •  FRI  NT 
SO  S=  I  NT  <  RND  <  1  >  *39  > 

30  IF  RHDC 1 > <6.7  THEH  POSITIOH  S,23‘PRIHT  “*"i<PRINT  FRI  NT 
1O0  FOR  1=1  TO  10‘HEXT  I 

110  LOCATE  X, 13, C ‘POSITIOH  X, 12 : PRIHT  CHR*<C>; 

120  IF  C=42  THEH  POSITIOH  10,23‘PRIHT  "Puntesi io  ottenuto  ■  "i 2  ■  RESTORE  ÌOOOGOSU 
B  5O0  END 

130  IF  C=35  THEH  2=Z+ 1 ‘ RESTORE  2000‘GOSUB  500 
140  POSITIOH  X-l,  16‘PRINT  '*  “> 

150  POSITIOH  X-l, 12 :PRIHT  "  ";CHR*<0>;” 

160  CLA=PEEK(764) 

170  X=X-<CLA»6  AND  X>1>+(CLA=7  AND  X<37> 

ISO  POKE  764, 255  GOTO  60 

5O0  FOR  MU=1  TO  3 : READ  VA=SOUHD  0, VA, 10, 4 ‘FOR  TE=1  TO  10‘NEXT  TE ‘SOUND  0,0,0,0‘F 
OR  TE=1  TO  5  •'  MEXT  TE  NEXT  MU‘ RETURN 
100O  DATA  63,47,40 
2O00  DATA  126,108,36 
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Anomalia 


RIFERIMENTI:  Programmazione:  difficile. 

Categoria  del  gioco:  solitario. 

Difficoltà  del  gioco:  media. 

IL  GIOCO:  Si  basa  essenzialmente  su  una  buona  capacità  di  os¬ 

servazione.  Due  griglie  di  25  caselle  ciascuna  sono  di¬ 
segnate  sullo  schermo.  Dei  simboli  identici  sono  vi¬ 
sualizzati  in  posti  differenti  delle  due  griglie,  ma  uno 
dei  simboli  è  stato  modificato  sulla  griglia  di  destra. 
Il  gioco  consiste  nel  trovare  quale,  inserendo  le  sue 
coordinate  nell’ordine  linea-colonna. 

IL  PROGRAMMA:  Il  ciclo  I  (50-80)  stampa  le  cifre  di  riferimento  delle 
griglie. 

Il  ciclo  principale  I  (100-160)  stampa  i  simboli  delle 
due  griglie,  in  un  ordine  differente. 

La  linea  110  sceglie  il  carattere  da  stampare. 

Il  sottoprogramma  (1000-1040)  si  occupa  di  fare  la 
stampa  in  una  casella  libera  (lo  si  richiama  due  volte 
per  le  due  griglie). 

Le  linee  170  e  180  cambiano,  in  maniera  casuale,  uno 
dei  caratteri. 

La  linea  170  toglie  il  colore  dello  schermo  scelto  alla 
linea  45. 

Le  coordinate  del  punto  tentato  sono  inserite  alle  li¬ 
nee  190  e  200,  ed  il  controllo  è  effettuato  dalle  linee 
210  e  220. 

Le  linee  230  e  240  si  occupano  della  visualizzazione 
del  risultato. 


PER  GIOCARE:  Dopo  aver  lanciato  il  programma  con  l’istruzione 

RUN,  si  ottiene  la  visualizzazione  di  due  griglie.  Si 
dovrà  allora  cercare,  per  paragoni,  qual  è  il  carattere 
che  è  stato  modificato  (sulla  griglia  di  destra). 

Si  inserisce  allora  il  suo  numero  di  linea,  seguito  da 
RETURN,  ed  il  suo  numero  di  colonna,  seguito  da 
RETURN. 

Il  programma  risponderà  allora  BRAVO  o  la  lettera 
da  trovare  era  .  .  . 


ESTENSIONI  POSSIBILI:  Sarà  possibile  utilizzare  dei  simboli  grafici  di 
differenti  colori,  il  che  potrà  semplificare  la  ricerca. 
Si  può  anche  immaginare  di  utilizzare  dei  disegni  più 
sofisticati,  migliorare  il  controllo  dei  risultati,  am¬ 
mettere  la  risposta  esatta  sulla  griglia  di  destra  o  di 
sinistra,  introdurre  un  controllo  di  tempo,  aggiunge¬ 
re  il  suono  ecc. 
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10  REM  ANOMALIA 
38  DIM  1*0  > 

40  GRAPHICS  1  0=5 
45  SETCOLOR  0.8,0 
58  FOR  1=1  TO  5 
55  I *=CHR*  < 1+43+128) 

60  POSITION  I+1,0:PRINT  #6O*  =  P0SITI0N  0,2*1 ‘PRIHT  #60* 

70  posinoti  1  +  10,0'PRINT  #6.ì  I*: POSITION  9,2*1  : PRINT  #60* 

sa  NEXT  I 

100  FOR  1=1  TO  22 

110  D= I NT < 2S*RN0 O ) + 1 > 

120  L=2-S=T 
130  GOSUB  1800 
140  L=1 1 
150  GOSUB  1080 
160  NEXT  I 

1 70  S=0  ^  SET  COLOR  000,8 
180  GOSUB  1008 

190  PRINT  "Linea . ‘“i> INPUT  I 

200  PRIHT  "Colonna. INPUT  T 
210  U=2*I=V=T+10 

220  LOCATE  V, U, C ; POSITION  V , U ■ PR I NT  CHR*<C> 

238  IF  D+64=C  THEN  PRIHT  “BRAVO!  “> >FOR  1=1  TO  3 ‘SOUND  0,63*<I=1)+47*<I=2)+40*<I 
=3),  10, 4 :  FOR  T=1  TO  5 ‘ NEXT  T 1  NEXT  I 

248  PRINT  “La  lettera  da  trovare  era  “ j ; CHR*<D+64 ) 1  END 
1800  U=2*INT<RND< 1 >*T+1 > < V=INT<RND< 1 )*S+L> 

1010  LOCATE  V,U,C>POSITION  V,U; PRINT  #6;CHR*<C> 

1020  IF  CO 32  AND  SO0  THEN  1000 
1030  POSITION  V,U: PRINT  #b,CHR*<D+64> 

1040  RETURN 
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Tanti  in  uno 


RIFERIMENTI:  Programmazione:  difficile. 

Categoria  del  gioco:  due  giocatori. 

Difficoltà  del  gioco:  secondo  l’utilizzo. 

IL  GIOCO:  Molti  giochi  sono  in  realtà  possibili  con  questo  pro¬ 

gramma  che  si  comporterà  come  una  matita  elettro¬ 
nica,  che  vi  permetterà  di  scrivere  dei  simboli  O  o  X  , 
in  un  qualunque  posto  del  vostro  foglio-schermo.  Po¬ 
tremo,  per  esempio,  utilizzarlo  per  un  gioco  da  ragaz¬ 
zi  (il  primo  a  realizzare  un  allineamento  di  5  pedine 
identiche  ha  vinto)  o  per  un  GO  (si  realizzano  gli  ac¬ 
cerchiamenti  delle  pedine  avversarie)  o  un  altro  gio¬ 
co,  secondo  la  vostra  immaginazione. 

IL  PROGRAMMA:  Il  campo  di  gioco  è  delimitato  da  un  quadro  posizio¬ 
nato  alla  linea  30  e  35. 

Il  cambio  del  giocatore  è  effettuato  dalla  linea  50. 

Il  giocatore  di  turno  vede  il  simbolo  che  ha  scelto  (O 
o  X)  spostarsi  al  limite  del  quadrato  (linea  70). 

Le  linee  100  e  110  permettono  ai  due  giocatori  di  spo¬ 
stare  il  simbolo  sul  terreno. 

Le  linee  130  e  140  controllano  se  lo  spostamento  è 
possibile  (casella  libera  e  non  oltrepasso  dei  limiti). 
La  linea  190  permette  di  scrivere  in  una  casella  li¬ 
bera. 


PER  GIOCARE:  RUN  provoca  l’apparizione  dei  limiti  del  campo  e  del 

numero  del  giocatore,  così  come  i  simboli  che  si  do¬ 
vranno  spostare  sullo  schermo  con  l’aiuto  dei  4  tasti 

di  direzione  (< - >11).  Non  è  possibile  andare  in  una 

casella  già  occupata  e  bisognerà  battere  il  tasto  0  per 
iscrivere  il  proprio  simbolo  in  una  casella  dispo¬ 
nibile. 

Fatto  questo  il  simbolo  del  secondo  giocatore  appare 
nella  colonna  di  sinistra,  circa  alla  metà,  ed  il  gioca¬ 
tore  procederà  nella  stessa  maniera  del  suo  avver¬ 
sario. 

Per  uscire  dal  programma,  basterà  battere  BREAK. 

ESTENSIONI  POSSIBILI:  Si  potrà  utilizzare  l’intero  schermo  come  ter¬ 
reno  di  gioco  e  realizzare  dei  controlli  in  funzione  dei 
differenti  giochi  che  si  desiderano  fare:  controllo  di 
allineamento  di  5  pedine  per  il  gioco  di  cui  parlava¬ 
mo  prima,  controllo  del  numero  di  pedine  catturate 
per  il  GO. 
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10  REM  TANTI  IH  UNO 
15  OPEN  #1,4,0, "K:" 

20  GRAPHICS  0  “POKE  752,1 

25  SETCOLOR  1 , 0, 0 : SETCOLOfi  2,1, 10-SETCOLOR  4,1,10 

30  POS ITI OH  0,0'PRINT  CHR$<1?> “POSITION  8, 23 “PRINT  CHR*<26>, 

35  FOR  1=1  TO  22 ; POSI TI OH  I,8“PRINT  CHR*<18> «POSITION  0,1 “PRINT  "l"“POSITION  I, 
3  •  PR I  NT  CHRP  <1 8  >  ;  NEXT  I 
40  J=0 

50  J=hBS<J-1> 

60  X= 1 2 ! V- 1 

70  POSITION  Y*X“ PRINT  CHR*<79+9*<J»1» 

80  GET  #1 , CLA 

SO  A»X“B=Y 

100  X=X+  CLA=b  1  AND  X<22>-<CLA=45  AND  X>1) 

110  Y=Y+0:Lm=42  AND  Y <22>-<CLA*43  AND  Y>1> 

120  POSITION  6, A “PRINT  "  " 

130  LOCATE  Y,X,C< POSITION  Y, X • PRINT  CHR#<C> 

140  IF  CO  73  AND  CO 88  THEN  160 
150  X=A • Y=B 

160  FOR  1  =  1  TO  50 “  CLR=PEEK  (  764  ) 

170  IF  CLA=255  THEN  NEXT  I 

180  POKE  764,255 : IF  CLA 050  OR  Y=0  THEN  70 

190  POSITION  Y,X> PRINT  CHR*<79+9*< J=l > > < 

200  SOUND  0,63*<J=0>+40*<J=1>, 10, 4 “FOR  TE=1  TO  10 “NEXT  TE “SOUND  0,0, 0,0 
210  GOTO  50 
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Percorso  del  cavaliere 


RIFERIMENTI:  Programmazione:  difficile. 

Categoria  del  gioco:  riflessione. 

Difficoltà  del  gioco:  elevata. 

IL  GIOCO:  Si  presenta,  qui,  come  un  gioco  totalmente  d'azzardo, 

ma  proviene,  in  realtà,  da  un  problema  assai  difficile 
da  risolvere:  come  spostare  un  cavallo  su  una  scac¬ 
chiera  in  modo  che  passi  una  volta,  e  una  sola,  su 
ognuna  delle  64  caselle  della  scacchiera. 

Il  cavallo  si  sposta  secondo  le  regole  comunemente 
ammesse  negli  scacchi  e  la  sua  posizione  di  partenza 
è  definita  dal  giocatore;  i  suoi  spostamenti,  invece  so¬ 
no  effettuati  a  caso.  Riuscirà  a  percorrere  le  64  ca¬ 
selle? 

IL  PROGRAMMA:  La  linea  60  definisce  i  diversi  spostamenti  possibili, 
in  due  variabili  alfanumeriche  A$  e  B$;  il  ciclo  chiu¬ 
so  I  (70-100)  disegna  il  campo  di  gioco. 

Si  inseriscono  le  coordinate  della  casella  di  partenza 
(linea  poi  colonna)  alle  linee  100  e  120. 

La  linea  140  stampa  il  numero  della  mossa. 

La  linea  150  permette  la  pesca  a  caso  di  uno  sposta¬ 
mento  del  cavallo. 

Il  ciclo  ZE  (160-210)  cerca  se  lo  spostamento  è  possi¬ 
bile;  se  non  è  il  caso,  si  cercano  tutte  le  altre  (sempre 
nello  stesso  ordine). 

Le  linee  170  e  180  effettuano  lo  spostamento. 

La  linea  190  controlla  che  non  si  esca  dalla  scacchiera. 
La  linea  200  invia  alla  linea  230  se  il  colpo  è  possi¬ 
bile. 

La  linea  220  gestisce  la  fine  della  partita  (cavallo 
bloccato)  e  visualizza  il  punteggio. 

Le  linee  230,  240  e  250  realizzano  la  mossa  e  incre¬ 
mentano  il  punteggio. 

La  linea  500  evita  un  messaggio  d’errore  e  l'interru¬ 
zione  del  programma  quando  leggendo  la  linea  2000 
gli  manca  un  dato. 

PER  GIOCARE:  Si  lancia  il  programma  con  l’ordine  RUN.  Appare  il 

campo  di  gioco;  si  sceglie  la  posizione  di  partenza 
battendo  prima  un  numero  di  linea  (tra  1  e  8),  poi 
il  suo  numero  di  colonna,  seguito  da  RETURN.  Il  gio¬ 
co  comincia  immediatamente  e  si  svolge  in  modo  in¬ 
teramente  automatico  fino  a  che  il  cavallo  sia  bloc¬ 
cato. 

Si  può,  naturalmente,  fermarsi  in  ogni  momento  con 
BREAK. 
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ESTENSIONI  POSSIBILI:  Si  possono  immaginare  numerose  varianti  su 
questo  tema,  cominciando  col  far  variare  le  dimen¬ 
sioni  della  scacchiera,  si  può  anche  migliorare  consi¬ 
derevolmente  la  grafica.  Ma,  la  cosa  più  interessante, 
è  di  riuscire  a  definire  un  algoritmo  che  dia  la  o  le 
soluzioni  del  problema  iniziale... 


10  REM  PERCORSO  DEL  CAVALIERE 
15  GRAPHICS  0 • PGKE  752, 1 
20  DIM  A$< 16> , Bl< 16> , Gt< 16> 

30  SETCOLOR  1,11,2- SETCOuOR  2,11,10 
50  8=1 ! T=0 

SO  A*=  “ 56653223  "  :  B*« *' 653223  "<B»< LEM < 6*  >  + 1  > «fl$  •  8*  < LEM  <  B*  ) + 1  >  =  " 65 1 "  ■  Ft$  <  LEM <  A*  > + 1  > = A 
ì 

65  C*=B* 

70  POR  1=1  TO  8 

80  POS I T I OH  3*1+1, 0'PRINT  I 

30  POSITI OH  1 , 2* I : PR I NT  I ; " . " 

100  NEKT  I 

110  POS ITI OH  2, 13' PRINT  "Line*  di  Partenza  ■ INPUT  I 

120  PRINT  : PR I NT  "Colonna  di  pertenze  ■">  'INPUT  J 
130  IF  S>3  THEN  S=0'T=T+1 

140  POSITION  3*J+1,2*I 1 PRINT  STR$<S)'IF  TO0  THEN  POSITION  3*J,2*I 'PRINT  STR*<T> 
150  Z=INT<RND(1)*8+1> 

160  FOR  ZE=Z  TO  Z+8 

170  A=  I +VAL  <  A*  <  ZE ,  ZE  )  )  -4 

180  6=J+VAL<B$<ZE, ZE) )-4 

130  IF  A<1  OR  B<1  OR  A>8  OR  B>8  THEN  210 

2O0  LOCATE  3*B+ 1 , 2*A , C ' POS I T I ON  3*6+ 1,2*A' PRINT  CHR* CO' B$=C* ' I F  C=4S  THEN  230 
210  NEKT  ZE 

220  POSITION  25, 18‘PRINT  "Totale  ■ "jT*10+S<RESTORE  1000'GOSUB  500'END 
230  I=A'J=B 

240  S»S+ 1 1 RESTORE  2000'GOSUB  500 
250  GOTO  130 
500  TRAP  520 

510  FOR . MU=1  TO  3 'READ  VA'SOUND  0,VA, 10,4'FOR  TE=1  TO  18'NEXT  TE'SOUND  8,0,0,0'F 

OR  TE=1  TO  5 'NEKT  TE 'NEKT  NU 

520  RETURN 

1000  DATA  126,136,81 

2000  DATA  63,40 
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Muro  di  mattoni 


RIFERIMENTI:  Programmazione:  difficile. 

Categoria  del  gioco:  riflessi  (per  1  giocatore). 
Difficoltà  del  gioco:  elevata. 

IL  GIOCO:  Se  c’è  un  gioco  che  si  può  presentare  come  un  grande 

classico  dei  videogiochi  per  microcalcolatore,  è  pro¬ 
prio  il  muro  di  mattoni  (in  inglese  BREAKOUT). 

E  offerto,  qui,  in  una  versione  semplificata,  ma  è 
ugualmente  interessante:  visualizzazione  del  punteg¬ 
gio  a  fine  partita,  rimbalzi  casuali  ecc. 

La  regola  è  molto  elementare:  disponete  di  una  rac¬ 
chetta  che  può  essere  spostata  orizzontalmente  per 
rinviare  una  pallina  (materializzata  da  un  punto)  che 
demolirà  i  mattoni  disegnati  nella  parte  alta  dello 
schermo. 

Il  vostro  problema  è  di  demolirne  il  maggior  numero 
possibile,  senza  mancare  la  pallina,  che  provochereb¬ 
be  la  fine  della  partita  e  la  visualizzazione  del  pun¬ 
teggio. 

IL  PROGRAMMA:  Il  ciclo  I  (50-80)  disegna  il  campo  di  gioco  ed  i  matto¬ 
ni  sono  messi  in  ordine  dai  cicli  chiusi  I  (90-130)  e  J 
(100-120). 

La  linea  150  disegna  la  racchetta  la  cui  posizione  è 
controllata  dalla  linea  170. 

Le  linee  220-250  guardano  se  si  è  colpito  il  muro,  i 
mattoni  o  la  racchetta. 

I  rimbalzi  sono  gestiti  di  conseguenza  in  maniera 
eventualmente  casuale  dalle  linee  260-290. 

La  linea  190  visualizza  il  punteggio  in  permanenza. 

PER  GIOCARE:  Il  programma  sarà  lanciato  dall’istruzione  RUN,  il 

che  provoca  l’apparizione  del  campo  di  gioco,  poi, 
molto  rapidamente,  l’invio  della  pallina.  Il  giocatore 
dovrà  allora  cercare  di  spostare  la  sua  racchetta  con 
l’aiuto  dei  tasti  di  spostamento  orizzontale  (♦-  e  -»). 
Se,  in  un  momento  qualunque,  la  pallina  non  tocca  la 
racchetta,  il  punteggio  apparirà  battendo  due  volte 
un  tasto  e  la  partita  riprende  battendo  nuovamente 
un  tasto.  Si  può  anche  terminare  in  ogni  istante  con 
BREAK. 

ESTENSIONI  POSSIBILI:  Si  può  immaginare  di  ingrandire  il  campo  di 
gioco,  aumentare  il  numero  di  mattoni,  prevedere  va¬ 
rie  palline,  introdurre  degli  effetti  sonori. 

Si  può  anche,  ispirandosi  ai  giochi  dei  bar,  introdur¬ 
re  dei  piccoli  operai  che  verranno  a  ricostruire  il  vo¬ 
stro  muro  di  mattoni,  man  mano  che  voi  lo  demolite. 
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10  REM  MURO  DI  MATTONI 
20  DIM  fì*<l> 

4U  GRAPHICS  0*ftMCHR*<160>*POKE  752,1 

45  SETCOLOR  1 , 2 , 2 * SETCOLOR  2, 1 1 , 10 > SETCOLOR  4,11,10 

50  FOR  1=1  TO  18 

60  POS ITI OH  9+ 1,0 'PRINT  A* 

70  POSITION  10, I : PRI NT  A* -POSITION  27,1* PRI NT  fi* 

80  NEXT  I 

90  FOR  1=1  TO  7 

100  FOR  J=ll  TO  26 

110  POSITION  J, I-PRINT 

120  NEXT  J 

130  NEXT  I 

1 40  H=- 1  *  K=0 . 5  -J=  1 8  *  I = 1 7  *  Y=J 

ISO  POSITION  Y-2, 19 : PRINT  "  -  “ 

160  CLA=PEEK< 764 ) 

170  Y=Y+<CLfl=7  AND  Y<23)-<CLA=6  AND  Y>8) 

180  IF  T=1  THEN  POSITION  J,I -PRINT  ”  " 

190  POSITION  0,29* PRINT  "Punteaa io  "iS 

200  IF  I> 21  THEN  FOR  MU=0  TO  5* SOUND  0, 63, 10, 4*<MU'2=INT <MU'2> » * FOR  TE=1  TO  5  =  NE 
XT  TE* NEXT  MU *  END 
210  I  =  I+H  *  J= J+K 

220  LOCATE  J, I,C* POSITION  J,IPRINT  CHR*<C>; 

230  IF  032  THEN  POSITION  J,I* PRINT  CHR*<20)*T»1 -GOTO  150 
240  IF  C=1S0  THEN  280 

25o  IF  C=35  THEN  POSITION  J,I* PRINT  CHR$<20) *T»1 'GOTO  300 
260  H=-H 

270  K=RHD< 1 )-RND< 1 ) 

280  K=-K *  T=0 
290  GOTO  150 
300  S=S+9 

310  K=- < K- < 1-2TRND <  O  <0 . 5 ) *RND  < 1 > /3  > 

320  H*-H 
330  GOTO  150 


226  102  programmi  per  ATARI 


RIFERIMENTI: 

IL  GIOCO: 


IL  PROGRAMMA: 


PER  GIOCARE: 


Othello 


Programmazione:  difficile. 

Categoria  del  gioco:  riflessione  (due  giocatori). 
Difficoltà  del  gioco:  elevata. 

Diventato  un  grande  classico  dei  giochi  su  microcal¬ 
colatore,  il  gioco  Othello  o  Reversi  si  avvantaggia 
dell’essere  gestito  su  calcolatore  con  visualizzazione; 
anche  se,  come  qui,  è  praticato  da  due  giocatori:  in 
effetti,  il  gioco  consiste  essenzialmente  nell’accer- 
chiare  le  pedine  dell'avversario,  e  questo  può  rivelar¬ 
si  alla  lunga  molto  fastidioso,  soprattutto  se  siete  un 
giocatore  assiduo. 

Il  principio  è  che  il  giocatore  con  le  X  deve,  per  poter 
giocare,  riuscire  a  chiudere  una  o  più  pedine  dell’av¬ 
versario,  in  una  o  più  direzioni;  se  ci  riesce,  le  O  sa¬ 
ranno  convertite  in  X  (la  conversione  potrà  essere 
fatta  orizzontalmente,  verticalmente,  o  seguendo  le 
diagonali). 

Il  giocatore  che  ha  le  O  procederà  nella  stessa  manie¬ 
ra,  finché  la  scacchiera  sarà  riempita  o  finché  nessu¬ 
no  possa  più  giocare  (se  un  giocatore  non  può  aggira¬ 
re  le  pedine,  deve  cedere  il  turno). 

I  cicli  chiusi  (50-120)  e  Q  (70-110)  disegnano  il  campo 
di  gioco  e  la  linea  140  visualizza  una  X  o  una  O,  se¬ 
condo  il  giocatore  che  inizia. 

II  ciclo  P  (200-320)  controlla  la  validità  del  colpo  (la 
casella  è  libera:  linee  300  e  310),  utilizzando  una  par¬ 
te  del  programma  che  si  trova  alle  linee  360-420  (ave¬ 
te  preso  uno  o  più  nemici  in  linea  360  ed  eventuale 
ritorno  autorizzato  alla  linea  380;  si  fa  una  pulizia  in 
tutte  le  direzioni,  se  l’inquadramento  si  è  rivelato 
possibile). 

La  linea  200  definisce  le  8  direzioni  di  esplorazione. 
Le  linee  240  e  250  calcolano  gli  spostamenti  da  effet¬ 
tuare  per  esplorare  queste  8  direzioni. 

La  linea  230  realizza  gli  spostamenti. 

La  linea  340  segnala  il  cambiamento  del  giocatore,  se 
c’è  stata  conversione  (controllo  alla  linea  330). 

Dopo  RUN,  ogni  giocatore  inserirà  a  turno  le  coordi¬ 
nate  (linea,  RETURN,  colonna,  RETURN)  dellà  casel¬ 
la  dove  si  vuole  giocare;  se  il  colpo  è  valido,  le  pedine 
sono  girate  e  si  cambia  il  giocatore;  se  il  colpo  non  è 
possibile  si  inserisce  0  come  prima  coordinata  per  il 
cambio  del  giocatore. 
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ESTENSIONI  POSSIBILI:  Prima  di  tutto,  naturalmente,  migliorare  la  vi¬ 
sualizzazione  con  dei  colori  e  fare  una  griglia  più 
spaziosa. 

Si  potrà  anche  immaginare  un  gioco  macchina  per 
l’ATARI. 

Dopo  aver  lanciato  il  programma  con  RUN,  conviene 
inserire  le  dimensioni  della  griglia  (4,  RETURN  o  6, 
8...). 


10  REM  0THELL0 

15  DIM  C$<1> 'GRAPHICS  0 

20  F'RIHT  “Dimensione  della  arialia  *  "i  <  INPUT  fi 
30  IF  fi/2<>INT<fi/2)  THEN  20 
40  FRI NT  "  >  "  = FOIE  752,1 
50  FOR  P=1  TO  fi 

60  POSI  TI OH  2*P,  @ ' FRI NT  STR*<P> 

70  FOR  0=1  TO  fi 

SO  POSITI OH  ©,2*P‘PRINT  STR*<P>« POSITION  2*Q,2*P> PRINT 
90  IF  Q=fi,"2+i  AND  P=fi/2  THEN  P0SITI0N  2*0-2, 2*P 'PRINT  "0  X" 

100  IF  0=fi-"2+ 1  AND  P=fi/2+l  THEN  P0SITI0N  2*6-2, 2*P> PRINT  "X  0“ 
110  NEXT  Q 
120  NEXT  P 
130  K=1 

140  POSITION  24,5:PRINT  “Giocatore  *C#“"0" ; IF  K=1  THEN  C*="X“ 
145  PRINT  C$  ■■  FOR  1  =  1  TO  5  >  SOUND  0,63, 10, 4*  NEXT  1=  SOUND  0,0, 0,0 
150  POSITION  31, 8 ! PRINT  "  " > POSITION  31, 10 'PRINT  " 

1 60  POS I T I OH  23 , 8 < PR I NT  "Linea  ■ " >  • I NPUT  U 
170  IF  U=0  THEN  340 

ISO  POSITI ON  23 , 1 0 ' PR I NT  " Co l onna ' " ;  »  I NPUT  V 
190  H=1 

200  FOR  P=1  TO  8 
210  S=0 
220  U=0 

230  T=2*U'R=2*V 

240  F=<P<3  OR  P>7)-<P>3  fiND  P<7) 

250  G=<P>=6>-<P> 1  AND  P<5> 

260  0=46+42*  <S=D  +33*  <  S=2  ) 

270  IF  S=0  THEN  290 

280  POSITION  R,  T  ' PRINT  CHR$<0> 

290  T=T+2*F ' R=R+2*G 

300  LOCATE  R,T,C' POSITION  R,T' PRINT  CHR$<C> 

310  IF  C=79  OR  C=88  THEN  360 
320  NEXT  P 

330  IF  HO0  THEN  140 
340  K=ABS(K-1 > 

350  GOTO  140 

360  IF  CC-79  AND  K=l)  OR  <C=88  AND  K=0>  THEN  N=1 
370  IF  SO0  THEN  POSITION  R,T* PRINT  CHR$<0> 

380  IF  W=1  AND  <03=79  AND  K=l)  OR  <0=88  AND  K=0>>  THEN  290 
390  IF  W=0  OR  SO©  THEN  320 
400  S=1+<K=0) 

410  H=H*<S=0> 

420  GOTO  220 
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"Puzzle”  dispettoso 


RIFERIMENTI:  Programmazione:  difficile. 

Categoria  del  gioco:  solitario. 

Difficoltà  del  gioco:  media. 

IL  GIOCO:  S’ispira  al  Puzzle  14-15  di  Sam  Lloyd  ma  qui  le  cifre 

sono  sostituite  da  lettere. 

IL  PROGRAMMA:  Il  sottoprogramma  1000  disegna  il  terreno  di  gioco 
La  linea  130  inizializza  la  matrice  A  che  contiene  il 
valore  della  lettera  visualizzata  sulla  griglia. 

Il  sottoprogramma  2000  visualizza  questa  lettera. 

La  linea  170  stampa  2  linee  di  istruzione;  la  linea  200 
assicura  lo  spostamento  del  buco  e  TRAP  permette  il 
passaggio  agli  indici  della  matrice  A  per  spostare  il 
buco  nei  limiti  della  tabella. 

Le  linee  230-240  cambiano  le  lettere  e  il  buco. 

PER  GIOCARE:  Si  lancia  il  programma  con  RUN.  Si  sposta  il  buco 

con  l’aiuto  delle  frecce.  Attenzione,  il  buco  si  sposta 
in  senso  inverso  rispetto  alle  frecce:  come  nella  real¬ 
tà  se  si  deve  spostare  una  lettera  verso  sinistra  (per 
esempio)  si  sposta  il  buco  verso  destra. 

Per  interrompere  battere  BREAK. 

ESTENSIONI  POSSIBILI:  Migliorare  i  suoni,  utilizzare  il  joystick  per 
spostare  il  buco. 
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5  REM  PUZZLE  DISPETTOSO 

IO  Ci>3‘LC=3'GRILLE*1000'CflSE*2000'DIM  D*<9>‘DIM  A<3,3> 

20  GRAPHICS  2 ‘POKE  756, 226 ■ SETCOLOR  0,3,8'SETCOLOR  4, 3, 8 ‘GOSUB  GRILLE 
110  FOR  C=©  TO  3 
126  FOR  L=0  TO  3 

130  A<C,L>=225+4*C+L'IF  0*3  AND  L«3  THEH  A<C,L>»32 
140  X=C  =  Y=L  •  GOSUB  CASE 
150  NEXT  L 
160  NEXT  C 

170  POKE  752, SPRINT  : PRINT  "  PER  SPOSTARE  LE  LETTERE" 

180  PRINT  “  BATTERE  I  4  TASTI  CURSORE" i 

200  K=PEEK < 764 >  >  POKE  764,255'TRAP  200  ■  IF  KOS  AND  K 07  AND  K<>14  AND  K<>15  THEN 
200 

210  SOUND  8,45,18, 10 ‘FOR  T=1  TO  18 > NEXT  T« SOUND  0,0,0, 0 
220  CN=CC+a>6)-<K=7) <LN*LC+<K*14>-<K«15> 

230  A(CC, LC  >  =A  < CN , LN  > ! X=CC ‘ Y=LC ‘ GOSUB  CASE 
240  CC=CN ‘ LC*LN 1 A<CC , LC>=32 : X=CC : Y=LC 1 GOSUB  CASE 
250  GOTO  200 

1 000  HBUT= 1 0800 • 6AS= 1 0030 ■ I NTER= 1 0028  < L I GNE= 1 00 1 0 
1010  FOR  1=0  TO  8 

1020  X=HAUT*a=0>+LIGNE*a/2<>INT<I.'2:>>+INTER*<I.'2=INT<I,'2>  AND  I>8  AND  I<8)+BAS 
1038 Gestore  X‘Read  d*‘Poke  85, 6= print  #6jd* 

1040  NEXT  I 
1050  RETURN 

2000  POSITIOM  7+2#X,2*Y+l ! PRINT  #6; CHR$<A<X,Y>> ‘RETURN 
10000  DATA  « rwrurure> .battere  simultaneamente  <CONTROL> 

10810  DATA  I  I  1  1  I  i — 

1 0O20  DAT A  a rs  r s  r s r d ‘ . vede  re  1 0800 

10030  DATA  zrxrxrxrc* .vedere  10800  .  . 
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Super  scorrimento 


RIFERIMENTI:  Programmazione:  di  media  difficoltà. 

Categoria  del  gioco:  animazione. 

Difficoltà  del  gioco:  nessuna. 

IL  GIOCO:  Si  deve  ricostruire  uno  schermo,  con  le  lettere  pari 

che  scendono  e  le  lettere  dispari  che  salgono,  prima 
di  farle  nascondere. 

IL  PROGRAMMA:  La  stringa  A$  contiene  il  messaggio  da  far  scorrere. 

T$  rappresenta  la  stringa  visualizzata  sullo  schermo. 
TRAP  in  1040  evita  la  visualizzazione  fuori  dallo 
schermo. 

PER  GIOCARE:  Si  lancia  il  programma  con  RUN  e  lo  schermo  si  ani¬ 

ma. 

I  colori  cambiano  automaticamente. 

Si  interrompe  con  BREAK. 

ESTENSIONI  POSSIBILI:  Si  può  cambiare  la  frase  in  DATA,  immaginare 
spostamenti  più  complessi  (giro  dello  schermo,  spira¬ 
le  ecc...).  Sarà  divertente  guardare  l'influenza  del  te¬ 
sto  battuto  in  maiuscole,  minuscole  con  colore,  così 
come  mettere  o  meno  i  caratteri  inversi. 
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5  REM  SUPER  SCORRIMENTO 

IO  DIM  A*<99>>DIM  TI*<20>‘DIM  C»<10> 

20  DUREE=40 • flTTENTE=3000 
30  GRAPHICS  2+16 
40  READ  A* 

100  REM  Visualizzazione  di  A*  <  1  .■  28  )  su  1 1  a  linea  LARRIVEE*  le  lettere  dispari  sala 
ono,. quel  le  pari  scendono 
110  TI$=A$<1,20> 

120  LDEPART =0 : LARR I VEE=5 1 FOR  C=0  TO  19  STEP  2-GOSUB  1 000 < NEXT  C 
130  LDEPART  = 1 1 : LARR I VEE=5 1 FOR  C=1  TO  19  STEP  2‘GOSUB  1000= NEXT  C 
200  REM  Scorrimento  di  A4  verso  sinistra 
210  1=21 : G0SU6  2000 

220  DUREE=100O  GOSUB  ATTENTE ! DUREE=40 1 PRIHT  #6*  ">" 

3O0  REM  Scelta  di  5  nuovi  colori  diversi  tra  sii  8  di  base<0. ,7> rappresentati  da 
C* 

305  REM  Osni  colore  scelto  in  C  e'  annullato  in  et 
310  C*="ù 1234567" 

320  FOR  J=1  TO  5 

338  C=  I NT '•  RND ( 1 ) *8 ) : I F  C* <C+1 ,  C+l  >="  "  THEN  330 
340  C$0>1,C+1>="  "iPOKE  707+J , 24C 
350  NEXT  J 
400  GOTO  100 

1080  REM  Scorrimento  del  C+lesimo  carattere  di  TI*  tra  la  linea  LDEPART  e  la  lin 
e a  LARRIVEE  sulla  colonna  C 
1010  S=SGN  <  LARR I VEE-LDEPART  > 

1020  FOR  L=LDEPART  TO  LARRIVEE  STEP  S 
1030  POS  ITI  ON  C/L‘PRINT  #S;TI*<:C+1,C+1>; 

1048  TRAP  1050ipOSITION  C,L-S=PRINT  #6;"  " 

1050  TRhP  450001 NEXT  L 
1060  RETURN 

2000  F;EM  Visualizzazione  di  TIS  sulla  linea  LARRIVEE  con  scorrimento  verso 'sinis 
tra  pr  riempire  A* 

2010  FOR  J=I  TO  LEN<A*) 

2020  TI*=TI*c:2,20>‘TI*<20,20>=A*<J> 

2030  POSITION  0 i LARR I VEE ! PR I NT  #6; TI* 

2040  GOSUB  ATTENTE 
2050  NEXT  J 
2060  RETURN 

3008  REM  Sottoprosramma  d'attesa 
3010  FOR  T=1  TO  DUREE : NEXT  T< RETURN 

10000  DATA  BUONGIORNO  MIO  CARO  GIACOMO  COME  stai?  Qui  tutto  LISCIO  come  l'olio. 
20008  REM  II  testo  da  fa  scorrere  e'  scritto  sottoforma  di  DATA 


Fotocomposto  e  stampato 
nel  mese  di  settembre  1985 
dal  Centro  Grafico  Linate  -  San  Donato  Milanese 


faftufta 


Insegnare  e  divertire  è  il  doppio  obbiettivo  di  questo  li¬ 
bro.  I  102  programmi  di  giochi  qui  contenuti  vi  invita¬ 
no  alla  scoperta  del’ATARI  (600  XL,  800  XL  e  130  XE). 
La  classificazione  per  livelli  di  difficoltà  crescente  vi 
permette  di  acquisire  a  poco  a  poco  nuove  cono¬ 
scenze  e  una  maggiore  padronanza  del  Basic. 

Per  ogni  livello  la  descrizione  del  giochi  proposti  è 
seguita  da  un  programma  commentato  in  modo 
esauriente  e  da  un  esempio  di  utilizzazione. 

L’ultimo  livello  costituisce  un’illustrazione  chiara 
deM’impiego  del  Basic  esteso. 
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